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This research extended the previous work performed 
by Becker on the elevated temperature deformation charac¬ 
teristics of an aluminum-10.2% magnesium-0.52% manganese 
alloy. The alloy was warm rolled at 300 C to 94% reduction. 
Stress-strain testing was utilized to collect data for 
stress vs strain rate and ductility vs strain rate, as 
well as, stress exponents and activation energies. 

Tensile testing was performed at strain rates from 
-4 -1 -4 -1 

1.39X10 s to 1.39X10 s and temperatures from 20 C to 

425 C. Ductility ranged from 400% at 300 C and 600% at 

325 C to 700% at 425 C. The data clearly establishes that 

the warm rolled alloy is superplastic at temperatures as 

low as 275 C and may exhibit superplastic elongations 

-2 -1 

(greater than 400%) at strain rates as high as 10 s at 
325 C. Scanning electron microscope observations indicated 
little or no void formation at or below 300 C. The high 
ductilities observed at temperatures above the solvus are 
the result of grain boundary sliding. 
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INTRODUCTION 


I . 

The purpose of this thesis was to investigate the 
elevated temperature deformation characteristics of a 
thermo-mechanically processed Al-10.2%Mg-0.52%Mn alloy in 
the as-rolled condition. Previous research by Ness [Ref. 

1], Bingay [Ref. 2], Glover [Ref. 3], Grandon [Ref. 4], 
Speed [Ref. 5], Chesterman [Ref. 6], Johnson [Ref. 7], 
and Shirah [Ref. 8], clearly demonstrated that thermo- 
mechanically processed aluminum-magnesium alloys exhibit 
high strength with good ductility at ambient temperature. 
Transmission electron microscopy studies by McNelley and 
Garg [Ref. 9] confirmed that the microstructure of this 
alloy consisted of fine, cellular dislocation structures 
or subgrain structures. It was further observed that 
annealing after rolling resulted in recovery with possible 
recrystallization to fine grains of submicron size. This 
prompted study of the elevated temperature behavior of 
these alloys with a view toward their possible superplastic 
behavior. 

Although his findings were preliminary, Becker [Ref. 

10] observed superplasticity in both the 8% and 10% 
aluminum-magnesium alloys. These alloys were thermo- 
mechanically processed by warm rolling. Testing was con¬ 
ducted on material in the as-rolled condition, after 
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annealing for various times at 300 C, and in a recrystal¬ 
lized condition obtained by heating for one half hour at 
440 C. 

The processing technique developed by Johnson [Ref, 7] 
and the tensile testing procedure developed by Becker 
[Ref. 10] were used in the study of this 10.2%Mg-0.52%Mn 
aluminum alloy. Tensile testing was conducted using an 
electo-mechanical Instron machine with a Marshall three 
zone clamshell furnace for temperature control. The 
microstructure of the elongated test samples was examined 
using optical microscopy. 

This thesis presents data obtained from the mechanical 
testing of an as-rolled magnesium-aluminum alloy as well as 
results of microstructural examination to assist in 
evaluation of mechanical test results. 
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II. BACKGROUND 


A. ALUMINUM-MAGNESIUM ALLOYS 

Aluminum alloys have been extensively studied because 
of their low density, ductility, and toughness. The higher 
strength alloys derive their strength mainly through 
precipitation and solid solution hardening. The formation 
of a second phase retards dislocation motion and grain 
growth. 

Aluminum-magnesium alloys are characterized by a good 
strength to weight ratio, superior ductility, lower density 
with better corrosion resistance than other, higher strength 
aluminum alloys, and also good high cycle fatigue behavior. 
The strength can be improved through cold working. 

B. PREVIOUS WORK 

Ness [Ref. 1] initiated the investigation of high 
magnesium alloys at this laboratory. He studied an 18% 
aluminum-magnesium alloy, attempting to parallel the concepts 
developed by Bly, Sherby, and Young [Ref. 11] in their work 
on high carbon steel. Through mechanical working of an Fe-C 
material in the two phase ferrite-carbide region they 
obtained microstructural refinement and improved mechanical 
properties, as did Ness [Ref. 1] with a resulting compression 
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strength of 655 Mpa (99 KSI) in this very high magnesium 
alloy. 

Bingay [Ref. 2] and Glover [Ref. 3] attempted varia¬ 
tions in thermo-mechanical processing of aluminum alloys 
to eliminate cracking during the rolling process. To 
refine the microstructure, Bingay [Ref. 2] performed both 
isothermal and non-isothermal forging prior to rolling in 
15-19% magnesium containing alloys. Processing was difficult 
and subsequent work shifted to examine lower magnesium 
alloys. Aluminum alloys containing 7-9% magnesium were 
investigated by Glover [Ref. 3] who observed the characteris¬ 
tics of superplastic behavior. 

Extending the study into 7-10% magnesium alloys, Grandon 
[Ref. 4] introduced a 24 hour solution treatment followed 
by a quench and then warm rolling at 300 C. His results 
indicated a doubling of strength while maintaining good 
ductility when compared to the 5xxx series. He also 
noted that recrystallization did not occur during warm 
rolling below the solvus. Alloys with greater magnesium 
content were tested by Speed [Ref. 5]. 

Chesterman [Ref. 6] studied the nature of precipitation 
and recrystallization in these alloys through optical 
microscopy. For 8-14% alloys, he reported that recrystal¬ 
lization only occurred at temperatures above the solvus and 
was apparently not induced even after extensive cold working 
followed by annealing as long as the annealing temperature 
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was below the solvus. At annealing temperatures of .6Tm, 
precipitation still replaced recrystallization as the 
method of stored energy release. 

Johnson [Ref. 7] standardized the thermo-mechanical 
processing of the aluminum-magnesium alloys. He investi¬ 
gated 8-10% alloys and reported material strength of 
twice that of the 5xxx alloys with good ductility. His 
process was to solution treat the material at 440 C for 9 
hours, isothermally upset forge the material, anneal for 1 
hour at 440 C, quench, and then warm roll. Various warm 
rolling temperatures were used ranging from 200 C to 340 C. 
He concluded that the beta phase contributed by dispersion 
strengthening to the high strength and good ductility. 

Shirah [Ref. 8] improved the microstructural homogeneity 
by increasing the solution treatment time to 24 hours. This 
extended treatment minimized precipitate banding while not 
effecting grain growth. 

Becker [Ref. 10] combined the previous studies and 
developed the procedure for tensile testing isothermally at 
various temperatures up to 300 C. His work concentrated on 
8.14% Mg and 10.2% Mg aluminum-magnesium alloys. He 
observed superplastic elongations of up to 400% and 
concluded that the higher magnesium content in the 10.2% 
alloy stabilized grain size and extended the range of 
superplastic behavior to higher temperatures. 
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C. SUPERPLASTIC BEHAVIOR 


Superplasticity is the capability of a material to 
deform to exceptionally high elongations. Elongation 
greater than 200% is often taken as superplastic [Ref. 11]; 
values of greater than 1000% have frequently been reported. 
The most important prerequisites for superplasticity are 
generally agreed to be fine, equiaxed grains with high 
angle grain boundaries, temperature in the range of 
0.5-0.7Tm, low strain rates, and a high strain rate sensi¬ 
tivity coefficient (m). 

To achieve superplasticity, a fine grain size of less 
than 10 microns is normally required. A second phase at 
the matrix grain boundaries is usually necessary to retard 
grain growth under warm temperature conditions. This second 
phase should be similar in strength to the matrix to 
minimize the formation of cavities [Ref. 11]. The. fine 
grains should also be equiaxed with smooth, rounded grain 
boundaries to promote sliding. Grain growth suppresses 
superplasticity as larger grains impose larger diffusion 
distances and reduce the strain resulting from boundary 
sliding. 

Deformation at elevated temperature is a thermally 
activated process, and superplasticity is observed only at 
elevated temperatures. The flow stress is a function of 
strain, strain rate, and temperature. At constant strain 
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and temperature, stress is often assumed to depend upon 
strain rate according to 

a = (eqn 2.1) 

where a is the stress, e is the strain rate, K is a 
temperature dependent constant, and m is the strain rate 
sensitivity coefficient. 

In general, m increases with increasing temperature. 
Superplastic behavior in metals usually occurs at high m 
values of .3 to .5 and is the greatest at the maximum m. 

The value of m can be found by plotting log stress vs 
log strain rate for data obtained at constant strain and 
temperature. 

The activation energy (Q) is a measure of the energy 
required for temperature-dependent processes. For a 
thermally activated deformation process 

£ = f(a)exp(-Q/RT) (eqn 2.2) 

where R is a gas constant and T is temperature. 

Values for the activation energy can be obtained by 
plotting log strain rate vs inverse temperature for data at 
constant stress. Such plots often indicate that the 
activation energy may be constant for a range of stress 
but may change to a different value for a different range of 
stress. Values of activation energy for deformation often 
are the same as those for lattice diffusion, suggesting 
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lattice diffusion control of deformation. When grain 
boundary sliding controls the deformation, lower values of 
activation energy may be observed; diffusion in the grain 
boundaries, the rate controlling process, occurs more 
readily than diffusion in the grain interior and is 
characterized by the lower activation energy. Hence 
activation energy measurement may provide useful insight 
into the mechanism involved in the material. 
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III. EXPERIMENTAL PROCEDURE 


A. MATERIAL PROCESSING 

The aluminum alloy investigated was nominally 10.2 
weight % Mg and 0.52 weight % Mn. The direct chill cast 
ingot received was produced by ALCOA Technical Center using 
99.99% pure aluminum base metal alloyed with commercially 
pure magnesium, 5% beryllium-aluminum master alloy [Ref. 7]. 
The ingot measured 127 mm (5 in) in diameter and 1016 mm 
(40 in) in length. The complete composition is listed below 
in Table I [Ref. 7]. 


Table I 

Alloy Composition (Weight Percent) 

Serial Number Si Fe Mn Mg Ti Be 

501300A 0.01 0.03 0.52 10.2 0.01 0.0002 

A portion of the ingot was sectioned into billets 101.6 
mm (4 in) long with a square cross section of width 31.75 mm 
(1.25 in). Following the procedures developed by Johnson 
[Ref. 7] and Becker [Ref. 10] the billets were solution 
treated at 440C for 24 hours, upset forged at 440C on heated 
platens to approximately 28 mm (1.1 in) in height, annealed 
at 440C for 1 hour, then oil quenched. The billets were 
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forged along their greatest dimension, resulting in a 
reduction of approximately 73% or a strain of about 1.3. 

B. WARM ROLLING 

The rolling of the billets into sheets was comparable 
to that done by Becker [Ref. 10] and performed in the same 
manner as Johnson [Ref. 7], with some modifications made to 
the technique. To preclude cracking of the forged billets 
by suspected uneven heating, each billet was placed on a 
steel plate used as a heat source in the rolling furnace. 
Since isothermal heating was essential each sample was 
initially heated from room temperature to 300C for 
approximately 10 minutes (after the sample surface 
temperature reached 300C) before attempting the first 
rolling pass. The samples were then heated for 6 minutes 
between passes for the first three passes and 1 to 3 minutes 
between passes thereafter, leaving the sample in the furnace 
just long enough to ensure an isothermal condition. The 
temperatures of both the sample and the plate were monitored 
using thermocouples. In the later rolling passes, the 
deformed sheet was pulled through the rollers to minimize 
warping. Each billet was rolled into a sheet about 1.8 mm 
(0.07 in) thick, 102 mm (4 in) wide, and 762 mm (40 in) long 
resulting in a final sample reduction of approximately 94%. 

As described in Becker [Ref. 10], the rolled sheets were 
cut into blanks 63 mm (2.47 in) long and 13 mm (0.5 in) 
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wide. Depending upon sheet thickness each sheet yielded 
130 to 140 blanks. The blanks were endrailled in lots of 
five to a gage width of approximately 3 mm (0.12 in) and 
length of 15 mm (0.6 in). A fabricated jig was used as 
a milling guide in determining the gage dimensions. A 
sketch of the test specimen is shown in Figure 3.1. 

C. SPECIMEN TESTING 

The tensile testing procedure was similar to that 
described by Becker [Ref. 10]. Each test specimen was 
placed into wedge grips and held in place by pins passing 
through the wedges. The wedge-action grips, grip assemblies, 
and pull rods were supplied by ATS, King of Prussia, PA, and 
were fabricated from Inconel 718. The assembly was then 
mounted into pull rods connected to an electro-mechanical 
Instron machine. 

To maintain a constant specimen temperature during 
testing, a Marshall clamshell furnace containing three, 
vertically oriented heating elements was utilized. The 
heating elements were individually regulated by three 
controllers using thermocouples located adjacent to each 
element. The furnace was insulated by positioning 
insulation paper between both halves of the clamshell and 
placing crescent-shaped insulation inside the top and 
bottom of the furnace. Rings of insulation were wrapped 
around each pull rod just outside the furnace, with a final 
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Figure 3.1 Test Specimen Geometry 
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insulation pad wrapped around the rings. The bottom 
insulation was wired to the furnace to keep it in place 
during testing. 

Five thermocouples were placed inside the furnace to 
monitor the specimen temperature. A thermocouple was 
attached to each pull rod approximately four inches above 
and below the specimen and two additional thermocouples 
were touching the top and bottom of the specimen, respec¬ 
tively. A center thermocouple was initially placed 
touching the middle of the specimen but this tended to 
bend the sample and result in premature fracture. The 
thermocouple was subsequently positioned beside the specimen 
at the start of each test. 

The tensile testing was performed with crosshead speeds 
ranging from 0.127 mm per'minute to 127.0 mm per minute 
(0.005 in/min to 5.0 in/min) at temperatures from 20C to 
425C. Care was taken to ensure each specimen was pulled 
isothermally. The testing apparatus was heated for a full 
day prior to conducting a sequence of experiments at a 
constant temperature. A test specimen was then mounted into 
the pull rods and the furnace closed. The five thermocouples 
indicated temperature equalization in approximately 1 hour 
and the test was started. At very low strain rates the 
bottom pull rod temperature would slowly start to drop as 
the bottom rod came out of the furnace. The top four 
temperatures normally remained identical, with the bottom 
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pull rod temperature dropping by no more than IOC before 
completing the test. Figure 3.2 is a visual summary of 
one test sequence. 

D. DATA REDUCTION 

The Instron strip chart recorder registered applied 
force as a function of chart motion. The magnification, 
ratio between chart speed and crosshead speed varied but 
was usually set at 10. From the raw data, engineering 
stress and strain were computed and loaded into computer 
data files for plotting and further calculations. To remove 
such variables as grip tightening, Instron machine error, 
and elastic strain, a "floating slope" calculation was made 
at each selected data point using a computer subroutine. 
Sample elongation was found by measuring the fractured 
specimen. 

E. COMPUTER PROGRAMS 

All plotting and true stress-true strain calculations 
were accomplished using FORTRAN computer programs in 
conjunction with the library routine DISSPLA. Essentially, 
the appropriate input data files were read into each program 
and loaded into arrays. These arrays were then operated on 
to achieve the desired variables, loaded into DISSPLA, and 
plotted against each other. Also, various DISSPLA curve 
fitting routines were used on some of the plots to obtain 
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Key 


A. 1.4X10_4S_| 

B. 5.6X10_^s_r 

C. 1.4X10_^s_r 

D. 5.6X10_^s_r 

E. 1.4X10_^s_r 

F. 5.6X10_^s_r 

G. 1.4X10 

H. Untested Sample 


Figure 3.2 Photograph'of Samples Tested at 325 C 
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smooth curves between data points. The computer programs 
are listed in Appendix B. 

F. METALLOGRAPHY 

Selected specimens were cold mounted on a base of glass 
using steel blanks or brass rings as a mold, depending upon 
the size of the sample. The mounted samples were then 
ground using 240 to 600 grit paper and polished with a 
magnesium oxide abrasive system. A Graf-Sargent solution 
was used to etch each specimen. The technique used was to 
swab each sample for 40 seconds. Using a Zeiss Universal 
Microscope, optical micrographs were taken with Panatomic X 
35 mm film. 
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IV. RESULTS AND DISCUSSION 


A. MECHANICAL TESTING RESULTS 

To study the deformation characteristics of this alloy, 
tensile testing was conducted over a wide range of tempera¬ 
tures and strain rates using the procedures described 

in Chapter III. Temperatures varied from 20 C to 425 C and 

-4 -1 -1 

strain rates from 1.4X10 to 1.4X10 s as illustrated in 
Table II. 

True stress and true plastic strain were computed as 
described in Chapter III and plotted for each test tempera¬ 
ture. One example is shown in Figure 4.1 for testing at 
300 C, and the remainder of the data obtained is given in 
Appendix A. The curves drawn reflect data points taken 
prior to the onset of necking; this procedure was necessary 
as the assumption of uniform straining of the gage section 
does not apply once necking has begun. As often noted in 
studies of superplastic materials, the test samples exhibit 
prolonged necking during deformation. Particular attention 
was directed to the temperature interval from 200 C to 325 C 
since Becker's [Ref. 10] data indicated superplastic behavior 
in this region. 

In this temperature range, the stress-strain plots for 
all temperatures indicate that at high strain rates a strain 
softening occurs as stress decreases significantly with 
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Table II 


Data for Al-10.2%Mg-0.52%Mn Alloy in the As-Rolled Condition 


True Stress at 


Temperature C . 

UTS 

0.1 Plastic Strain 


Strain 

L Rate s 

Mpa 

Mpa 

Ductility 

20 

5.6X10"^ 
5.6X10 ^ 

4T4.0 

478.0 

* 

* 

3.0 

3.2 


5.6X10 

503.0 

* 

3.2 

100 

5.6X10~^ 
5.6X10 ^ 

404.0 

453.0 

484.0 

524.0 

34.2 

22.5 


5.6X10 

486.0 

* 

9.3 

150 

5.6X10“^ 

5.6X10_f 

247.0 

327.0 

297.0 

386.0 

67.0 

51.5 


5.6X10 ^ 

376.0 

438.0 

37.7 


1.4X10 

405.0 

* 

28.2 

200 

1.4X10“^ 

80.6 

96.0 

134.0 


5.6X10 ^ 

119.0 

150.0 

187.0 


1.4X10":: 

146.0 

184.0 

125.0 


5.6X10 ^ 

166.0 

209.0 

144.0 


1.4X10 ^ 

225.0 

266.0 

94.0 


5.6X10 f 

268.0 

297.0 

58.8 


1.4X10 

301.0 

329.0 

31.8 

225 

1.4X10"^ 

58.4 

77.0 

215.0 


5.6X10 ^ 

82.0 

104.0 

141.0 


1.4X10 

101.0 

134.0 

116.0 


5.6X10 p 

124.0 

167.0 

140.0 


1.4X10 ^ 

143.0 

177.0 

138.0 


5.6X10 f 

216.0 

253.0 

99.2 


1.4X10 

262.0 

280.0 

37.3 

250 

1.4X10"^ 

28.4 

36.0 

269.0 


2.8X10 ^ 

37.7 

42.0 

294.0 


5.6X10 ^ 

46.1 

59.0 

335.0 


1.4X10 :: 

59.2 

78.0 

228.0 


2.8X10 ^ 

71.0 

91.0 

135.0 


5.6X10 ^ 

86.9 

108.0 

179.0 


1.4X10 p 

105.0 

134.0 

142 .0 


2.8X10 p 

136.0 

170.0 

104.0 


5.6X10 ^ 

170.0 

206.0 

121.0 


1.4X10 

191.0 

218.0 

54.8 


^Specimen fractured before achieving 0.1 strain. 
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True Stress at 
0.1 Plastic Strain 
Mpa 


Ductility 


Temperature C_^ 

UTS 

Strain Rate s 

Mpa 


-4 

17.5 

275 

1.4X10 2 


2.8X10 4 
5.6X10 Z 
1.4X10 'i 

25.0 

29.4 

39.4 


2.8X10 'Z 
5.6X10 ^ 
1.4X10 ^ 
2.8X10 p 

45.9 

57.1 

84.1 
110.0 


5.6X10 , 
1.4X10 

128.0 

154.0 

300 

1.4X10"^ 
2.8X10 2 

11.4 

12.9 


5.6X10 ^ 
1.4X10 

20.1 

25.9 


2.8X10 :: 
5.6X10 p 
1.4X10 ^ 

28.9 

48.1 

61.3 


2.8X10 p 
5.6X10 f 
1.4X10 

77.9 

93.8 

120.0 

325 

1.4X10"^ 

■ 5.6X10 Z 

11.3 

16.0 


1.4X10 :: 

19.7 


5.6X10 p 
1.4X10 p 
5.6X10 ^ 
1.4X10 

31.4 
56.6 

83.4 
108.0 


-4 


350 

5.6X10 ^ 
5.6X10 p 

14.2 

36.3 


5.6X10 

82.7 

375 

5.6X10“^ 
5.6X10 'Z 

13.7 

40.1 


5.6X10 ^ 

78.6 

400 

5.6X10"^ 

11.1 

5.6X10 "Z 
5.6X10 

26.5 

64.6 

425 

5.6X10"^ 

5.9 

5.6X10 "Z 
5.6X10 

16.5 

41.7 


22.0 

198.0 

32.0 

438.0 

35.0 

397.0 

52.0 

255.0 

58.0 

239.0 

75.0 

120.0 

104.0 

281.0 

141.0 

209.0 

167.0 

182.0 

187.0 

73.3 

14.0 

258.0 

15.0 

283.0 

23.0 

392.0 

32.0 

391.0 

39.0 

373.0 

60.0 

293.0 

83.0 

160.0 

94.0 

238.0 

111.0 

138.0 

154.0 

85.2 

13.0 

398.0 

19.0 

492.0 

25.0 

579.0 

40.0 

398.0 

70.0 

282.0 

92.0 

269.0 

137.0 

187.0 

18.0 

362.0 

43.0 

319.0 

83.0 

168.0 

16.0 

498.0 

45.0 

191.0 

77.0 

216.0 

13.0 

539.0 

32.0 

441.0 

64.0 

157.0 

7.0 

684.0 

22.0 

326.0 

44.0 

150.0 
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Figure 4.1 True Stress vs True Plastic Strain Data for Testing Conducted at 100 C 
Al-10.2%Mg-0.52%Piit. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 
Quenched, and Warm Polled at 300 C to 94% Reduction. 






















































































































increasing strain. Such an apparent softening could result 
from localized deformation of the samples. The softening, 
however, generally appears at high strain rates. Jonas 
[Ref. 13] reported similar data and suggested that this was 
due to a break up of a fibered structure resulting from 
rolling. A detailed explanation as to why this should 
result was not offered although it may be inferred that the 
more equiaxed structure had a smaller apparent grain size. 

At intermediate strain rates the stress remains relatively 
constant over a wide strain range, and at low strain rates 
the stress increases slightly from strain hardening, perhaps 
due to grain growth. 

This latter behavior can be understood from models such 
as those due to Nabarro [Ref. 14] and Herring [Ref. 15], or 
Coble [Ref. 16], all of which predict 1/d grain size 
dependence for the deformation rate, where d = grain size 
and X = 2 (Nabarro-Herring) or 3 (Coble). As grain growth 
occurs, the stress must increase to maintain a constant 
strain rate. To obtain representations for the temperature 
and strain rate dependence of plastic deformation, values 
of true stress at a true plastic strain of 0.1 were plotted 
against temperature (for each strain rate) and strain rate 
(for each temperature). 

Figure 4.2 illustrates the dependence of the flow 
stress at 0.1 strain on temperature for each strain rate 
examined. Generally, as the strain rate increases the 
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Figure 4.2 True Stress at 0.1 Strain vs Temperature Data for Al-lO.2%Mg-0.52%Mn. Solution 
Treated at 440 C for 24 Hours, Annealed at 440 C for I Hour, Oil Quenched, and Warm Rolled 
at 300 C to 94% Reduction. 























































































stress increases and as temperature increases the stress 
decreases. The trend of the curves suggests a weakening of 
the temperature dependence of the flow stress for 
temperatures above the rolling temperature, 300 C. 

Sherby et. al. [Ref. 17] have noted that one common 
(Characteristic of superplastic metallic alloys was that 
their resistance to plastic flow is highly strain rate 
sensitive. Figures 4.3 and 4.4 are plots of log stress 
at 0.1 plastic strain vs log strain rate for selected 
temperatures. The data of Figures 4.3 and 4.4 are 
generally not linear for each temperature. Rather, the 
slope m generally increases with decreasing strain rate, 
although at temperatures from 275 C to 325 C the curves 
appear sigmoidal as discussed by Mukherjee [Ref. 18]. Also, 
the slopes appear to increase with increasing temperature 
for any strain rate. The data in Figure 4.4 was plotted 
separately to avoid overlap; as noted previously, the flow 
stress dependence upon temperature is weak in this range. 

Based on the stress-temperature data of Figure 4.2, 
activation energies can be determined by plotting strain 
rate vs. 1/T at constant values of stress (Figure 4.5). 

These activation energy values were obtained from the data 
of Figure 4.5 by applying the relation 


Al/T (a = CONSTANT) (eqn. 4.1) 
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Figure 4.3 True Stress at 0.1 Strain vs Strain Rate Data for Al—10.2/Mg 0.52/oMn. Solution 
Treated at 440 C for 24 Hours, Annealed at 440 C for I Hour, Oil Quenched, and Vtarm Rolled 
at 300 C to y4% Reduction. 
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Figure 4.4 True Stress at 0.1 Strain vs Strain Rate Data for Testing Coriducted at Temperatures 
of 325 C and 375 C for Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 
440 C for 1 Hour, Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure 4.5 Strain Rate vs 1/T Data for Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours 
Annealed at 440 C for 1 Hour, Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 



































































































































for each of the stresses indicated; that is, the slopes of 
the individual lines on Figure 4.5 were used to obtain the 
values shown. 

The activation energy at higher stresses and lower 
temperatures is about 36 Kcal/mol. This value is consistent 
with lattice diffusion control of deformation, either via 
control of dislocation climb or dislocation glide [Ref. 20]. 

A change in slope appears to occur near 300 C; above this 
temperature (at smaller values of 1/T) the activation energy 
appears to decrease to a value of about 16 Kcal/mol. The 
rate and the temperatures at which this value becomes 
dominant correspond to the regime wherein the apparent 
temperature dependence of the stress diminishes (Figure 4.2). 
The rates and temperatures also correspond to those wherein 
superplastic ductilities begin to be observed. 

Micrographs in Figures 4.6 and 4.7 are of samples tested 
at 200 C and 300 C, respectively. No cavitation appears 
at 200 C although some cavitation is observed at 300 C. 

These observations are consistant with the noted break 
in slope in Figure 4.5 at about 300 C indicating the onset 
of possible grain boundary sliding. 

At temperatures above the solvus (367 C) the magnesium 
tends to go back into solution, with the result that the 
intermetallic is no longer present to retard coarsening of 
the subgrain structure or to inhibit recrystallization. The 
recrystallization coupled with the solid solution 
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AI-10Mg-0.52Mn 

£:5x101'sec 200°C 



Figure 4.6 Optical Micrograph of Al-10.2%Mg-0.52%Mn, 
160x, Tested at 200 C, Strain Rate 5.6X10“^s“^; Sec¬ 
tioned Longitudinally. Etched Using Graf-Sargent 
Solution. 
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Graf-Sargent Solution. 





strengthening within the lattice may promote grain boundary 
sliding as the dominant deformation mechanism. A charac¬ 
teristic of recrystallized aluminum alloys undergoing 
superplastic deformation via grain boundary sliding is 
extensive cavitation. The micrograph in Figure 4.8 shows 
extensive cavitation in the test specimen pulled at 400 C. 

Ductility was plotted versus temperature in Figure 4.9 
for the warm rolled Al-10.2%Mg-0.52%Mn alloy of this 
research. Included is data from Becker [Ref. 10] and 
Stengel [Ref. 19] on this alloy, warm rolled and then 
recrystallized by annealing at 440 C prior to tension 
testing. The data on the material recrystallized repre¬ 
sents a pattern expected for these aluminum alloys. The 
as-rolled data, however, rises significantly in ductility 
between 150 C and 300 C. Sample ‘elongations of greater 
than 400% were observed at temperatures as low as 275 C. 
This indicates that warm rolling enhances ductility to 
values greater than expected. Theories of elevated 
temperature deformation do not consider subgrain structures 
as likely to exhibit superplastic behavior. Rather, fine 
grain size is thought to be required. It is not clear, 
here, why such structures exhibit such enhanced ductility, 
but the ductility itself is clearly the result of the 
warm rolling. The increasing m value with increasing 
temperature also would result from the warm rolling. The 
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Figure 4.8 Optical Micrograph of Al-10.2/oMg-0.52%Mn , 160x, Tested at 400 C, Strain 
Rate 5.6X10 '^s-l ; Sectioned Longitudinally to Reveal Cavitation. Etched Using 
Graf-Sargent Solution. 
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Figure A.9 Ductility vs Temperature Data Comparing As-I<olled to Recrystallized Data for 
Testing Conducted at 5.6X10~^s“^ for Al-10.2%Mg~0.52%Mn. Solution Treated at 440 C for 
24 [lours. Annealed at 440 C for 1 Hour, Oil (^lenched, and Warm Rolled at 300 C to 94% deduction. 





































































































































































remaining plots and data are included in Appendix A and 
Table II. 

Figure 4.10 is a plot of ductility vs strain rate for a 

constant temperature of 300 C. The curve describes an 

expected shape, based on the stress-strain rate data. It 

should be noted that peak ductility of 392% occurs at a 

-3 -1 

strain rate of 5.6X10 s , a relatively high strain rate. 
More of these plots at selected temperatures are included 
in Appendix A. 

B. METALLOGRAPHY 

A comparison between microstructures after testing at 

-2 -4 -1 

strain rates of 5.6X10 and 5.6X10 s can be seen in 
Figure 4.11. There is a marked difference in grain struc¬ 
tures as a function of strain rate. At high rate where 
ductility is lower and time at temperature is short, 
little cavitation is seen and little evidence for resolu- 
tioning of the second phase or recrystallization. On the 
other hand, at a lower rate with more time at temperature, 
the resolutioning of the second phase and recrystallization 
lead to more ready boundary sliding and the accompanying 
cavitation. 

In summary, the activation energy for deformation follows 
a pattern suggesting lattice diffusion giving way to grain 
boundary diffusion control as temperature increases above 
300 C, the rolling temperature. The m values attained 
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Figure 4.10 Ductility vs Strain Kate Data for Testing Conducted at 300 C for Al-10.2%Mg-0.52%Mn. 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil (Juenched, and Warm 
Rolled at 300 C to 94% Reduction. 





























































































AI-10Mg-0.52Mn 

400°C 



£:5xiots£C 


Figure 4.11 Optical Micrographs of Al-10.2%Mg-0.52%Mn, 
500X, Tested at 400 C, Sectioned Longitudinally, to 
Compare Grain Size and Extent.of-Cavitation. Strain 
Rates Were 5X10“^s“^and 5X10 "^s , Respectively. 

Etched Using Graf-Sargent Solution. 
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were 0.4-0.5 at approximately 300 C and resulted in 
superplastic ductility in a structure consisting initially 
of fine subgrains rather than grains. These observations 
suggest further development of dislocation models is needed. 
Also, it appears that current grain boundary sliding models 
seem inadequate to explain the observed behavior. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


The conclusions drawn from this research are: 1) warm 

rolled Al-10.2%Mg-0.52XMn alloy is superplastic at 

temperatures as low as 275C; 2) the warm rolled alloy 

exhibits elongations of 400% at 300 C and strain rates of 
-3 -1 

5X10 s ; 3) the warm rolling is responsible for the super¬ 
plastic response at lower temperatures (near 300 C); 

4) grain boundary sliding appears to be the predominant 
superplastic deformation mechanism at higher temperatures 
(above 300 C), based upon activation energy data; 

5) microstructural data indicates that the structure prior 
to testing consists principally of fine subgrains rather 
than grains. 

Recommendations for further work are: 1) microstruc- 
tural analysis be conducted to reconcile the observations 
of activation energies appropriate for boundary sliding 
with the observations of dislocation substructures being 
present; 2) investigation into alloying effects on micro¬ 
structure and superplasticity; 3) examination and further 
analysis of microstructural effects of annealing and 
recrystallization in this alloy. 
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Figure A.1 True Stress vs True Plastic Strain Data for Testing Conducted at 20 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 
Hour, Oil Quenched, and Warm Rolled at 300 C to 94% Reduction, 
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Figure A.2 True Stress vs True Plastic Strain Data for Testing Conducted at 100 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A.3 True Stress vs True Plastic Strain Data for Testing Conducted at 150 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour 
Oil Quenched, and Warm Rolled at 300 C to 94/^ Reduction, 
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Figure A.A True Stress vs True Plastic Strain Data for Testing Conducted at 200 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A.5 True Stress vs True Plastic Strain Data for Testing Conducted at 225 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 llour 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A.6 True Stress vs True Plastic Strain Data for Testing Conducted at 250 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at A40 C for 24 Hours, Annealed at 440 C for 1 Hour 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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TRUE STRAIN 

FiRure A.7 True Stress vs True Plastic Strain Data for Testing Conducted at 275 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A.8 True Stress vs True Plastic Strain Data for Testing Conducted at 325 C for 
Al*-10,2%Mg-0.52%Mn, Solution Treated at A40 C for 24 Hours, Annealed at 440 C for 1 Hour 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A.9 True Stress vs True Plastic Strain Data for Testing Conducted at 350 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at A40 C for 24 Hours, Annealed at 440 C for I Hour, 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A.10 True Stress vs True Plastic Strain Data for Testing Conducted at 375 C for 
Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A.11 True Stress vs 'rrue Plastic Strain Data for Testing Conducted at 400 C 
for Al“10.2%Mg-0.52%Mn. Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 
1 Hour, Oil (Quenched, and W^rm Rolled at 300 C to 94% Reduction. 
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Figure A. 12 True Stress vs True PlasUie Strain Dal.. f.>r Testing Conducted at -^*25 
Al-10.2%Mg-0.52%Mn. Solution i'LeuLed at 440 C tor 24 Hours, Annealed at 440 C for 
Oil Quenched, and Warm Rolled at 300 C to 94% Reduction. 
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Figure A.13 Ductility vs Temperature Data Comparing As-Rolled to Recrystallized Data for 
Testing Conducted at 5.6X10"2s"^ for Al-10.2%Mg-0.52%Mn. Solution Treated at 440 C for 
24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and Warm Rolled at 300 C to 94% Reducti 
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Figure A. 15 Ductility vs Strain Rate Data for Testing Conducted at 200 C for Al-10.2%Mg-0.52!^ 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 G to 94% deduction. 
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Figure A,16 Ductility vs Strain Rate Data for Testing Conducted at 250 C for Al-10.2%Mg-0•52%l 
Solution Treated at 440 C for 24 Hours, Annealed at 440 G for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 G to 94% Reduction, 
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Figure A.17 Ductility vs Strain Rate Data for Testing Conducted at 275 C for Al-10.2%Mg-0. 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 C to 94% Reduction. 
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Figure A.18 Ductility vs Strain Rate Data for Testing Conducted at 325 C for Al-10.2%Mg-0. 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 C to 94% Reduction. 
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Figure A.19 Ductility vs Strain Rate Data for Testing Conducted at AOO C for Al-10.2%Mg-0. 
Solution Treated at 440 C for 24 Hours, Annealed at 440 C for 1 Hour, Oil Quenched, and 
Warm Rolled at 300 C to 94% Reduction. 
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CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


L2GPAK ,5 ) 
,LcG?AK ,6) 
fLEGPAK ,7 ) 
,LEG?AK ,8 ) 


LINES(* 1oHx 10(EHa 5 )-2 S' 

LINES( * 2.EX1C(FH,5)-2S' 

LINeS( • 5oEX10(EH.5)-2S' ,LHGPAK ,^) 
LINES( * loAXlG(EH.5)-lS » ,L3G?AK ,10 
.•^YLEGfJ ( • ETP ATN PA T? c l/c^f 


:o2,1) 


(6H.3)Q(EXH X)C S• , 100 
, 1 STPA IM { ( ).MPA ( ) ) S • 


VYLcGfU ' ET^AIN PATES 1/Si»,16) 

FAGEdlo ,E.5) 

-UILKA 

SHCCHP. ( ,1,0 

THkCPV(.C2 ) 

HEIGHK .2 ) 

XNAMC{ •tE^^PEPA'^UPE 
YNAM4{ * STRESS &J ')c 
POLY3 
^R = ,i20( So ,6o ) 

HEACri ( * J* , 100 ,. 5,2 ) 

hEACn (* STRESS VS T''IP E F ATURE S » , 100,1.5 , 
GRAF( To ,Ko ,45C., C. ,100*,600.) 

THKFP‘1 ( .C2 ) 

FPAHE 

CURVE(SR2C,S2C,?TS1,^-1) 

CUFVE(SRICO ,S1C0,PTS2,+l) 

CURVE(SR 15C ,S150,PTS3, + l) 

CUPVE(SR200 ,S2C0,PTS4, + 1) 

CUPVE(SP22 5 ,S225,PTS5,>1) 

CURVE(SR 250 ,S250,PT56, + 1) 
CUPVE(SR275,S275,PTST ,) 

CUPVE(SR3CC , S3 CO,PTS8, + l) 
CURV6(SP325,S325,?TS9,>1) 

CUPVG(SP350 ,53 50,PTSIO, ♦!) 

CUPVE( SR 375 ,S3 75,PTS11 ,>n 
CUPVE(SR^CC ,S4C0,PTS12, + 1) 

CURVE(SR 42 5 ,S4 25,PT313,+1) 

RESET(•THKCFV » ) 

REScT( » HEUl-T’ ) 

LEGEMD(LECPiK ,10,5,2.5) 

3LRECL4.02.2,2.5,3.,.02) 


Ljill tJLH i‘f. I , 

13334 42334??33 33 1?^ 

CALL ME 5 SAG ( ' ^ L- 10. 24MG-0. 5 2 3^^Ni » ,100,2.5,5 
CALL eLREC(2.3,f.4,2.6,.4,.C2) 

CALL GPIC(2,2) 

CALL £NCPL(Q) 

CALL DPNEPL 

FCRMAT(1X,FIC.4 ,1X , F10o4,1X,F10o4) 

FCRHAT(1>,I3 ) 

FCR.MAT( 1X,3F12.5 ) 

STOP 

END 


) 

, 100 ) 

2 ) 
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oo 


C 

C 


2 CO 

c 

c 

c 

1 

c 

c 

2 

c 

c 

3 

c 

c 

c 

4 


5 
C 

C 

C 

6 

C 

C 

7 

C 


FLCTS LCG STRF.5S 5T^^AI^ vG. LGG STRATI ^ATG. 

^ at-* ?? a 4 x ar:: -t t :1 *♦ 4 iv * !• x —i: x x a< !t; 

01 VENSICiN A ( ICC ) ,e ( 100 ) , S20 ( 1C ) t Srl2C( 10 ) » SlOO ( n ) , SRi :3( 1C ) 
S15C(IC) ,5Pi50 (1C) ,52 00(10 ,LcG?AK{500) 

SP.2CC(10) ,5225(10) ,^P,225( 10 ) , S2 50 ( 1 0) , 5R250 (1 0 ) 

S2 7 5(1C) ,SF2T5(10) ,C3'''^(lC),SR3uO(VO) ,3325( 10) 

5R2 2 5(1C) ,33 50(10) ,3R350 ( 10) ,3375 (1 0), 3R375(10) 
S4CC(1C) ,SR400(10) ,5425(10,5R425(10) ,C( 100) 

»J 

FTSl ,FT5 2,?TS3 ,PTS4,FTS3,?T 56 ,PTS7,PTS3,?TS9 
FTSIO ,FT511 ,?TS12,?T513 


Cl MEN SIGN 
01,MENS ICN 
CIM=NSICN 
CIM6NSICN 
OIMenSICN 
INTEGER I, 

INTEGFR 
INTEGER 
PT32=2 
PTS3=3 
PTS4=7 
PTS5=7 
PTS6=10 
PTS7=10 
PTS8=10 
PTS9=7 
PTS10=3 
PTS11=2 
FTS12=3 
PTS13=3 
1=0 

CONTINUE 
I = I +1 

WRITE(6,2000 ) I 

READ( 95,^,2NC = 1CC)A(I) ,e (1) ,C(I) 
WRITE(6,3030 )M I ),e(I) , 0 ( 1 ) 

IF(I<,GT*2)GC TC 1 

5ioo( n=A(I )*\.ze 

SRIOO (I )=8( I )^.CC1 

WRITE(6,1000 )51CC(I ),SR1C0( I ) 

GO TO 2CC 
CONTINUE 

IF(I.GT.5)G0 1C 2 
J=l-2 

WRITE(6 ,2000 ) J 

5150( J) =A( I )^UZ5 

SR150(JJ=0(I )-.CCl 

WRITE(6,1000 ) 515C(J ) ,3R150(J ) 

GC "^0 2CC 
CCNTTNUE 

IF(I.GT.12)GC TC 3 
J=I-5 

WRITE(6 ,2000 

5203( J)=A(I)*1.E5 

SR230(J)=6(I)^,OCI 

WRITE(6 tlOOC)52CC(J ) ,SR2C0(J ) 

GO TO 2CC 
CCNTINUE 

IF(I.GT.19)GC TC 4 
J=I-12 

WRITE(6 ,2030 ) J 
S225( J)=A(I )^ 

5R225(J)=B( I I^.CCl 

WRITE ( 6, nOO ) 522 5( J ) ,5R225( J ) 

GC TO 2CC 
CCNTINUE 

IF( UGT.29) GC TC 5 
J=I-19 

S250( J)=/S(I )=*1*E^ 

SR230(J )=8( I )^.3C1 
WRITE ( 6 ,2000 ) J 

WRITE(6,1C0C ) 525C(J),3R250(J) 

GC TO 2CC 
CCNTINUE 

£££££££££££££5 £ £££££££££££!£££££££££ £££££Ca 

IF(IoGT*39)GC TC 6 

J=t-29 

^RITE(6,2000)J 

S275( J)=^(I 

SR275 (J)=8(I )^.3C1 

WRITE(6 , lOOC )5275(J),3R275(J) 

GC TO 2CC 
CCNTINUE 

IF( I.GT.A9)GC TC 7 
J=I-39 

S200( J) =A( r ) -^1*26 
SR300 (J)=«( I )*.CC1 
WRITE(6 ,2C0Q ) J 

WR ITE(6,1000 ) 52CC(J ),3R3 00(J) 

GC TO 2CC 
CCNTINUE 

££££C£££££££££ a £££££C££££££f£££££££££££££ 
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c 

c 

8 


c 

9 

C 


c 


c 

IG 


C 

C 

11 

C 

C 


c 

100 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


IF(I.GT.56)GC TC 3 

WRITr(6 fZOOC ) J 

S325( J)=A(Il.:6 

SR325( J )=B( I X. rCl 

WRITE{6 tlOOO )S225(J ),SR325{J ) 

GC TQ 2CC 
CONTINUE 

IF(I.GT.=9)GC TC 9 
J = T-5 6 

S350{J)=A(I)^1.=6 
SR350(J)=B(r )W*aGl 
WRITE(6,2000 ) J 

WRITE{6 ,100 3 )S35C(J),SR3 50{J ) 

GG *^3 2CC 

CONTINUE 

Edifice 

IF(I,GT.^2)GC TC 1C 
J=I-59 

WRIT3(6,2000)U 

.S375{ JI=A(I )^UE6 

SR375 (J )^B{ I )WoCCl 

WRITE(6,1000 ) SET5{U),5R375(J) 

GO TO 2CC 
CONTINUE 

IF(IoGT.£5)GC TO 11 
J=I-62 

SAOO{ J)=A{I)♦l.ES 
SR403(J )=8{I )^,CC1 
WRITE(6 ,2000 ) J 

WRITE {6,1030 S4CC(J ) ,SR4C0( J ) 

GO TO 2CC 
CONTINUE 

££££££0 

J=I-o5 

WRI-^E (6 ,200.3 ) w 
SA35( J)-A(! )=Plo'i6 
SR425{J)=*e( I 

WRITE(6,1000)S4 25(J ),3R^25(J ) 

GC TO 2CC 
CCNTI Nue 
CALL CO^'PRS 
CALL BLCWUP(.i5) 

CALL SMCCTH 
CALL OSMTH 
CALL PAGEd L. ,E.5) 

' • -- ^30 ,20 ) 


MAXLIN=LINE ST (LiCP AH ,530 ,20 
CALL LlNeS{ •ICCt ' ,LrGPAK ,1) 
CALL LINE3( • 15C$ * . 

LIN3S{'2C0I 
LI^E3{'2255 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

call 
CA LL 


* 'J t 

• 35 c 1 


LI^E3{ 

LUE3 ( 
LINP3( 
LI^FS(*3CCS 
LINES('3255 
LINE3(•3501 
LINE3('3751 
LINc3( * 4C0S 


.LCGPAK ,2) 
,l:gpak,3) 

,L'GPAK ,4) 
, L , uP A K , 3 ) 
, LiGPAK ,6 ) 
,L3GPAK,7) 
,L£GPAK,1) 
,L3G?AK ,3) 
,LiG?AK,2) 
,L=G?AK ,9) 
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C 


C 


1000 

200C 

3000 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


LINC*3( • 5 • ,L - ,10 ) 

r > ALF ( ' INSTPL ’ ) 

FUTLFA 

SHCCHR( FC. . 1 ,•C02,1) 

THKCrV(.02 ) 

HEIGHT( .2 ) 

XNAHf( •STRA IN ^AT= S(=H . 5)-L$ * ,10C) 

YNAMF(* STRESS AT Ool STRAIN ({ )PA( ) )S* ,10J) 
AREA20(S.,6.) 

H6ACIN( • I* ,lC0f5,2) 

HEACIN( »STRESS VS STRAIN RATES»,100,lo5,2) 
LCGLGG(•CCCl ,2* loOOCOOC* ,3*) 

THKFRMI*03 ) 

FRAME 

CURVE!SPIOC.SICO.PTS2 r ^1) 

CURVE!SRISO .S1S0,PTS3,+1) 

CURVE(SR2CC,S2Cn,PTS4,>1) 

CURVECSP 225 »S225.?TS5r ^1) 

CURVE(SR25C ,S250,PTS6.+1) 

CURVE!3R 27 5 .S2T5rPTS7,>1) 
CURVE!SP2CC,S30aiP'^-^3,+ n 
CURVF(SR 325 ,S325,?TS9, ♦I ) 

CURVE!SR3 5C , S3 50,?TSI 0 . >1) 

CURVG(SR375,S375,PT311,+]) 

CURVE!SRACC .0400,PTS12,>1) 

CURVE!SR^25 .S425,?T513.M) 

RESET!*TFKC?V » ) > 

RESET! »FEIGhT» ) 

*-YLEGN! ‘TEMFERATURE CS» 


LEGEN0!LEGRAK .2.6o7o3 ) 
BLRHC! !3«S.o 4 ,2? ,!• fo02 ) 


.13) 


FCR 250-425 ANO VIC; 


FCR'‘TEMPS''fc’ 325''cCVH6Nf'out »LIMES* . _ 

ALSO, FCR T5HFS 350-^25 CHG LEGEND FROM 3 TO 4 ANO BLREC 

1 • 4* 

VW WWW U Vi W WWWW V, W W W W W W ■' 

CALL ME S SAG! * AL-10. 2^'1G-T. 5 2 INNS * ,100,3.1 ,.6) 

CALL PLFECI2.S,o5,2o6,.A,o02) 

ViViViWW WViWWUWUWV* V\«i(iWUV»»i 
CALL GP IC!1 ,1 } 

CALL ENCPL!0) 

CALL GCNEPL 

FCRMAT! 1>,F2C.5 , 1>,F20.12) 

FORMAT! 1>, 13 ) 

FCRMAT!IX,3F12o5 ) 

CT^^p 

END 


VERSA. 
2.A TC 
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c 

c 


200 

C 

C 


1 

c 

c 

2 

C 

3 

C 

c 

4 

c 

c 

5 


FLCITj 

a ji x 

ci.M^=NsirN 

cim^nsicn 

CIMPNr.ICN 


^ IN \jZ I /T 

T*:-a?c^'*-^3k4 »7;:-:'riSt * ».: n ^ 

^(ICC} ,B( 100) ,S20( If) »SR2C(15) »3LC0(15) t SRI^0(1 5) 
SlfC (1n tSRlSC(15 ) ,5200(15 ) ,L2G?AK(50O ) 




: (15) ,22 25 (15) ,£R225( 15) ,52 50(15) ,3R250 (15) 


OI.'-eMSICN SO'^f (1 5 ) ,SR2 7 5 (15 ) ,23'>'^( 1 5 ) , SR300( 15 ) , S3 25( 15) 
CI.‘^3:(SICN SR3 25 (15) ,33 50 (1 5 ) ,SR350 ( 15 ) ,S3 75 ( 15 ) , SR3 75 (15 
S4CC(15) ,5R400(15) ,5A25(15) , SR425(15) ,C( 100) 
,J,C,8 ,F,t< ,L,t^,NfR,C 

PTSl ,PT52 ,FT33 ,PTS4,FTS5 ,PTS6 , PTS7,PT58 ,PTS9 
PTSIC ,?TS11 ,PTS12,P""S22 


ci?-er)s ICN 

INTrOcP I, 

INTrrGcR 
INTEGER 
PTS1=5 
PTS2=6 
FTS3=-7 
FTS4=7 
PTS5=7 
PTS6=5 
PTS7=4 
PTS3=3 
1=0 
C=0 
6=0 
F=Q 
J=0 
K=0 
L=0 

N=0 

CCNTINU6 

1 = 1 + 1 

WPITP(6,200C ) I 

ReAO(97,^,ENC = 1CC )A (I) ,8(1) ,0(1) 
WPITE(6,3000 )/( I ),e (I) ,C(I ) 

IF(C( I).6Q.25.)GC TC 1 
IF(C( I) .6Q.5C. )GC TC 2 
IF(C( I) .60.75. )GC TC 3 
IF(C( I) .60.ICC, )GC Tn 4 
IF(C( I).60.150. )GC TO 5 
IF(C( I ) .cO.ZCC. )GC TO 6 
IF(C( I ) .6Q.3CC. )GC TO 7 
IF(C( I ) o6Q.35C<. )GC TO 3 
CCNTINUe 
J=J + 1 

S20(J )=e( I ) 

3P20(J)=A(I ) 

V^R ITE( 6,100C ) 52C (J ) ,SR20 (J ) , 6 (I ) 
WRITE(6 ,2C0C ) J 
GC Tn zc: 

CCNTINUE 
C=0 + 1 

WRITE(6 ,2000 )C 
S100( C)=e( I ) • 

SPlOl(0 )=A( I ) 

WRITE(6,1000 )S1CC(2 ),SR1C0(D ) ,B( I ) 

GO ^0 2CC 

CCNTINUE 

6=E+1 

S15n(E) =e( I ) 

SR15n(E )=A( I ) 

WRITE (6 ,1000 )S15C(E),SP150( E) ,a( I) 

WRIT=(6,2300 ) E 

GC TO 2CC 

CCNTINUE 

F=F + 1 

WRITE(6 ,2000 )f 
52C0(F)=e(I) 

SR200(F )=A( I ) 

WRITE(6,1000)S2CC(F)tSR200(F),0(I) 
GO TO 2CC 
CCNTINUE 
K=K + l 

$225( K)=8( I ) 
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c 

c 

6 

C 

C 

7 

C 

c 

8 
C 

c 

ICO 

c 

c 


c 


c 


lOOC 

20QC 

30CC 


Sn225(K )=A( r ) 

V.FIT' (6 ) 5225 (K > ,$''^^225 (K ) ,a{ r) 

WPI^2 ( 6 »K 

GC tq 2CC 
CCNTINUE 
L = L-^l 

WFIT= (6 ,2000 )L 
5250( L) =^e( I ) 

SP250(L )=A( I ) 

UR IP: (6,1000 ) 525C ( L ) ,3 R 2 50 { L) , 8 ( I) 

GC T1 2CC 

CCNTINUE 

5275( M)*e( I ) 

SP275(M)=A( I ) 

WRIT?: ( 6 , lOOC ) 52 7 5 (f-) , S R 275 ( M ) , 8 (I )• 
WRITE(6 ,2000 )N 
GC TO 2CC 

continue 

UPITE(6 ,2000 )^ 

S310(N)=e(I ) 

5P30n(N ) = A( I ) 

WRITE (6,lOOC)5 2CC(N),oR3aO(N ) ,8(I) 

GC TO 2CC 

CCNTINUE 

C^LL CO^'PRS 

C;iLL 0LCVU?(*E5) 

C^LL SMCCTH 

C^ILL PS^^TH 

C4LL FAGEdlo ,8o5) 

MAXLIN=LINEST (LEGPAH ,500 ,20 ) 

CALL LI^6S( »25S * ,LHGPAK, 1) 

--5C5» ,LcGPAK,2) 

755» ,LEGPAK,3) 

1CC1»,L5GPAK,4) 

15G5 » ,L£GPAK ,5) 

2CC i • ,LEGPAK ,6) 

3CC S» ,LEGPAK,7 ) 

3 ECS • ,LcG?AK ,3 ) 

' INSTRU * ) 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


LINES( 
LINES( 
LINGS( 
LI^ 5 S( 
LUES( 
LI^ES( 
LINES( 
M IXALF 
FUTLRA 
SFCCHR 
THKCPV 
HE IGHT 
XNAr-F( 
YNAMF( 
AREA 2 D 
HEACIN 
HEACIN 


rl) 


9C, ,1,*C02 

oC2 ) 

• 2 ) 

1/T K(E!-.5)-l$» ,1C0) 

STPMN FATE S( cH cf )-!$»,IOC ) 
5 • , 6 c ) 

' i»,lC0,,5,2) 

» STRAIN FATE VS . / . 

YLCG(, rciA ,o0ccz,o ocoi, da) 

THKFPH(.C3 ) 

FPANF 

CUPVE(SR2C,520,PTS1,-l) 

CURVE(SR IOC ,51C0,PTS2,-l) 

CURVE(SF 150 ,5150,PTS3,-l) 

CUPVF(SR 2C: ,S2C:,PTS4,-1} 


!/T$ MOO , 1.5,2 ) 


CUF>^E(3R 225 ,S225,PT55,- 
CURVE(2R252,22 50,P^56,-1) 

CUPVP(SR 27 5,527 5,PTS7,-I) 

CUPV=( SR3CS •53''?, PT53 ,-i ) 

R65ET( » THKCPV * ) 

RESET(•HEIGHT » ) 

VYL3GN (» STRESS .^PASdlO) 
LSGENCaEGFAK,E,5. 9,1. 5] 
dLFHC ( PoT fio4,,io,2o2, .0^ ) 

WWWMNWWWk,w\.i»i,V VVVWWkw 

CALL mESSmG( *AL-lCa2 4MG-0. 5 25^N$»,1 CO,4.5,5*5) 
CALL eLFEC(4,3 ,5o4 ,2o6,.4,.02) 

CALL GRIC(1,1) 

CALL ENCFL(O) 

CALL OCNEPL 

FCPMAT( IX, F2C.5 , IX , f20.12) 

FCRHAT( IX, 13 ) 

FCRMAT(1>,3F12.5) 

STOP 

END 
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2G0 

C 

C 


C 

c 

4 

c 

c 

5 


C 

C 


S40C (15),5R400(15) ,5425( 15 ) ,5R425( 15) ,C( 100) 
I»J»C»CfF»K »LfM yC 

FTSl ,FTS2,P7S3 yP'^S4.?TS5 ,PT S6 , ?TS 7 , PTS8 , PTS 9 
FTSLQ,PT$11 ,?TS12rPTS13 


FICTS ^ ILC'^G • 

DL'^PNSICN ^ CCQ ) ,c ( iOO ) T SCO ( 15 ) , SR20( 1 5 ) ySlOO ( 15 ) , 5R1C7(L 5) 
Clf-tNSICN 315C(15), SR 130(15) yS2C0(15) 

CLMENS IC.N-- - -- ' 

Clf-CMSICN 
CIMENS ICN 
OI'-ENS ICN 
INTEGER ' 

INTEGER 
INTEGER 
PTSl^E 
PTS2=3 
FTS3=13 
PTS4^6 
PTS5=3 
PTS6=i3 
PTS7=6 
PTS8=3 
PTS9=13 
PTS10=7 
PTS11=3 
PTS12=3 
PTS13=3 
1=0 
0=0 
E=0 
F=0 
J=0 
K=0 
L = 0 

N=0 
P=0 

c=o 

CONTINUE 
I=I>1 

V.FIT= (6 ,2000 ) I 

REAO( 96 ,ENC = i:C).MT) ,8(1 ) ,C(I) 

WRITE(6 ,3000 ) A( I) ,8 (1) ,C (1) 


TO 

Tfl 

TO 

70 

TO 

TO 

TO 

TO 

TC 

in 


1 


3 

4 
c 

6 

7 

3 

9 

10 


IF(R( I) •EG..139 )GC 
IF(B( IJ•CQoo278 )GC 
IF(8( I)oEO«o 5 56 )GC 
IF(B( I ) •EQ. !• 29 )C-C 
IF(3( I ) .EQ.2.78)GC 
IF(3( I)«EG,5o56 )GC 
IF(B( I).EQ.13.9 )GC 
TF(B( I)•EQ.27.8 )GC 
IF(8( I).6a*55.6 )GC 
IF(3( IJ .E0.139* )G0 
CCNTINue 
J = J + 1 

S20(J ) = A ( I) 

SR20(J)=C (I ) 

WPITE(6,100C)S20(J) »SR20(J) ,£(I ) 

WRITE (6,2000 )>J 

CC TO PCC 

CONTINUE 

C=0^•1 

WRITE(6,200G )C 
S100(C)=A(I) 

SPlOO (D ) =C( I ) 

WRITE(6,100 0 ) S1CC(C),SR1C0( D ) ,R(I) 
GC TO 2CC 
CONTINUE 
E = E+1 

S150(E)=A(T) 

SR150(E )=C( I ) 

WRITE(6,1000 )S15C(E),SR150(El ,B( I) 
WRI‘rE(6 ,2000 )E 
GC TO 200 
CCNTINUE 
F = P^.l 

WRI^E(6,2C0C IF 
5200 ( F) =M I ) 

5P200(F )=C( I I 

WRITE(6,100C )52CC(F I ,SR2C0(F I ,8(11 

GC TO 2CC 

CONTINUE 

K=K4-1 

S225(KI=4(II 
5F225(K )=C(T I 

WRITE(6,1000 15225(K l,SR2 25 (K I ,B(Tl 
WRITE(6 ,2000 I K 
GC TO 2CC 
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6 CCNTINUE 
L=L + I 

C WP IT^ ( ,:00C ) L 

5250(L)=4(I) 

SR250(L)=C(I ) 

C WPIT:E (6,1000 )S2 5C(L J ,SR2 50 (L) ,e( I) 

GC TO 2CC 

7 CCNTINUE 

S275(M):iA(I ) 

SP275(M )=C( I ) 

C WRIT?(6,1000 )S215(M ),SP275 (M ),8(I) 

C WRITc (6,2000 )^' 

GC TO 2CC 
a CCNTINUE 

N=N>1 

C WRITE(6 ,2000 

S3Q0(N)=A(I) 

SR3T0(N )=C( I ) 

C WRITE(6 ,1000 )S3CC(N ) ,SR3C0(N ) ,8( I) 

GC TO 2CC 

9 CCNTINUE 
P = P-^l 

C WRITE(6,2000)F 

$325(P) = 4(r ) 

SR325(P )=C (I ) 

C WRITE( 6,10005325 ( P ),SR3 25(P ) ,3(1) 

GC TO 2CC 

10 CCNTINUE 
C = Q + 1 

C WRITE (6 ,2^"^^^ )C 

5350(Q)=A(I ) 

5P350(Q )=C( I ) 

C WRITE(6,1000535C(C) ,SR350(Q) ,8(1) 

GC rj 2CC 
ICO CCNTINUE 

CALL COPPCS 
CALL 3LCWUO(.?5) 

CALL PAGEdl. .a.5) 

CALL ‘-I >ALF ( ' • ) 

CALL cutURA 

CALL ShCCHR(9C.,l,.C02,l ) 

CALL THKCP.V ( <.02 ) 

CALL HEIGHT(o2) 

CALL XNAN-( 'TSMFEFA^URE (EH*2 )C(EXHX ) C5• , 100) 
CALL YNA/^E(»? ELCNGATIONJ » , ICC) 

CALL SMCCTH 
CALL ODLY3 
CALL PSyTh 
CALL AREA20(E. ,E.) 

CALL HEACUK » ,K0,. 5,2) 

CALL HEACIN(»CUCTILITY VS TEyFERATUP2$ * , 10D,L.5, 
CALL GRAF(Oc ,5Co ,4 5C*, 2. ,10 0* ,700o) 

CALL THKPCm(oC2 ) 

CALL FRAyE 

CALL RE5E'^( 'HEIGHT' ) 

WWWWWWWWWWWmWWW 

CALL HE£SAG( * STRAIN RATE = S ' , 100,1 . , 3 . ) 

CALL REALM0(C.C56,-1,»ABLT' , ‘ABUT* ) 

CALL ‘^E5SAG(' S ( eh* 5)-U ', IOC ,'ABUTABUT' ) 

CALL 8LFEC (o 9 ,2.9 ,3* ,.4, *02 ) 
WWWWWWUWWWWWWWVWWWWWW 

CALL MES5AG( * A L-10.2?‘1 G-C. 52 2yN S » , 1 CO , 2 o 5,5.5 ) 
CALL 61FEC(2*3 ,5*4,2.6,*4,.C2) 
uwwwwwwuwwwwwuw 
CALL CURVE(SR2C ,520,PTS1,-l ) 

CALL CUFVE(SR1CC,51C0,PT52,-l) 

CALL CUPVE(SR15C,5150,PTS3,-1) 

CALL CUFV£(SR2CC,52G0,PTS4,-1) 

CALL CURVE!SR 225 ,5225,PT55,-l) 

CALL CUPVF(SR250,S250,PTS6,-]) 

CALL CURVE!SR275 ,5275,PTS7,-1) 

CALL CURVE!SP2CG ,53CC,PTS8,-l) 

CALL CLFV6( SP325,S325 ,PTS9 ,-n 
C CALL CUPVE(SP35C ,5250,PTS10,-l) 

CALL RESET! •THKCPV * ) 

CALL GPrC!2,2) 

CALL ENCFL(G) 

CALL CCNEPL 

ICnC FORMAT!IX,F1C*^,1X,F10 * 4,1X,F10 * 4 ) 

200C FORMAT!IX,13) 

300C format(1X,3F12.5) 

STOP 

END 
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C PLCTS X ELCNG vs LCG STCotN -.ATS. 

CIMENSICN A(100).2(IC0J,S2C( 10).SK2C( lC).SlOO(iC).SPXOC( IC) 
CIWEnSIGN S15C( 10) ,5P150( 10) .S2C0( XG) 

OlweNSI ON S«200( 10),S2 2S( lU) .Sfi22 5( 10),S2 5C( lO) ,SR2SC( lO ) 

01 MENS!ON S2 7S( 10) •SR27S(10) •S3 00(10),5R3 00 (10).S02S(1C) 

01 MENSION S«32 5(10).S3S0(10) •Sfi3S0(lG),S275(lC) ,503 7 2( 10 ) 
dimension S^0G( 10)•SKacG(10) . S42S( 10 ) •SR42E( 10) .C( 100 ) 
INTEGER I.J 

INTEGER PTSl ,PTS2 . PTS3 • PTSA, PTSS ,PTS6 .P TS7 .PTSa .PTS*; 

INTEGER PTSlG,PTS 1 1.PTS12.PTSl3 
PTSl=3 
PTS2=3 
PTS3=A 
PTS4=7 
PTS5=7 
PTS6= 10 
PTS7= 10 
PTSas 10 
PTS9=7 
PTS10=J 
PTS11=3 
prsi2=3 
PTS13=3 
1 = 0 

200 continue 

I=lvi 

C «RIT£(6.2000 ) I 

READ(9b•^.cNC = l00)A( I),e(I).C(I) 
i«RITE(6.200 0 )A(I),e(I),C(I) 

IF( I ,GT .3 ) GO TO I 
S20(I)=A(I) 

SR20(I)=6(I)C.OO1 

C »RITE{6.1000)S20(I).Sfl20(I) 

GO TO 200 

1 continue 

IF(I.GT.e)GC TC 2 
J= 1-3 

C «RITE(6.2000 ) J 

SlOO ( J) =A( I ) 

sRiooij)=e(I )-.CO 1 

C «RIT£(b.l000)S10C(J).SPlG0(J) 

GO TC 20 0 

2 continue 

IF( I .GT. 10)GC TC 3 
J= I-b 

C *RITE(6.2000 ) J 

SI SO(J)=A( I ) 

SR 150(J )=8( I )-.CO 1 

C <iRITE(6. 1000)S150( J ) .SR 1S0(J ) 

GO TO 200 
continue 

IF( I .GT. 1 7)GC TC 4 
J= I- I 0 

*RIT£(6.2000 ) J 
5200(J) =A(I ) 

5R200 < J ) =8 ( I )=::. CO 1 
»iRIT£( 6.1000)52 00(J) ,5fi20 0(J) 

GO TO 200 

continue 

IF( I .GT .24)GC TO 5 
J= I- I 7 

S225(J)=A(I) 

5R225( J )=e(I )=?.00l 
WRITE(6.2000 ) J 

«RIT£(b. 100 0 )52 2S( J) .5P2 2S(J ) 

GO TO 200 
continue 

IF ( I .GT.34)GC TC 6 
J= 1-24 
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c APirt(Q.4;CC0)j 

b.250 ( J ) = A ( I ) 

S»250(J )=6( I )^ . CC I 

C I TE (b . 1000 ) = C ( J ) .SR250 ( J ) 

GO TO ^00 

e continue 

IF(I.GT.4A)GC TC 7 
J=I-34 

S2 75( J) =A< I ) 

SP275(J)=B(!)*•COl 
TE(b .2000 ) J 

wPITEIb. 1000 )S27E(Jl •SR275(J ) 

GO TO 200 
CONTINUE 

CCCCC(;^€.t:.CCCCC,C €.€.€€ C.C&CCCCCCCCCCCCCCCCCC&C 
IF(T .GT,54)GC TC 3 
j=1-44 

viPITE(6#2000 ) J 
S300(J)=A(I) 

SP300( J ) =8( I . CO I 
4PITE(b*l000)S300(J) *5^200(3) 

GO TO 20c 

continue 

IF(I.GT.6I)GC TC 9 
J=I-54 

S325(J)=A( I ) 

SP325 ( J I =3 ( I 00 I 
4PIT£(6•2000 ) J 

wPITE(6.i000)S3 25(j) *5^325(3 ) 

GO TC 200 
CONTINUE 

CCl.CC€^ Cl.CC€C,C^CCC€.CCC,C,CCCCC>C€CC.C CCCCCCCCC 
IF(I.GT*64)GC TC 10 
J=I-6I 

4PITE(6•2000 ) J 
S350(Jj =A( I) 

SP350(J)=6(I )-.00 I 
wPITE(6.1000)S350(J).SP350(J) 

GO TO 200 

continue 

IF(I.GT,67)GC TC 11 
J=1-64 

S37S(J)=A( I ) 

SP375(J)=e( I CO I 
4PITE(b.2000 ) J 

4PITE(6. 1000)5375IJ) .Sfi375(J ) 

GO TO 20c 
CONTINUE 

CC.CC CCCCCCCCCCCCCCCCCCCCC cccccccccccccc 
IF(I,GT,70)GC TC 12 
J=I-67 

v*p I TE(6.2000 ) J 
5400(J)=A(I) 

5P400( J ) =a( I )^^.oo I 
V»PITE(6. 1000)54 00 (J) .5^400(3 ) 

GO TO 20c 
CONTINUE 

cccccci^cccccccccccccccc ccccccccccccccccccc 

J=I-70 

V>P lTE(b.2000 ) J 
S42S(3)=A(I) 

5P425(3 )=8I I )-.00 I 
«PITE(6. 1000)5425(3) .5fi425(3) 

GO TO 20c 
CONTINUE 
CALL COMFP5 
call BLO AUP( .35 ) 

CALL 5M0CTF 
CALL P5MTH 

call page( I I . .3.5 ) 
call mi XALF( • IN5TPU • ) 

CALL FuTLRA 
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CACL SrtOCMfi{ SO• , I . . 0C2 . I ) 
call rM<c=5v ( ,0^ ) 
call HtI gh r( .2j 

CALL XfNi ANE { • STRA IN P4T6 S { cH , 3 ) - I t * , I C 0 ) 

CALL YNAVEI’^ cLCNCA TT CN5* . 1 00 ) 

call awea2o( e..e,) 

CALL HEACIN(* I*-10C.,5.2) 

CALL MEAciNi ‘Ductility vs strain ra ret•,i oc. i.5 
CALL XLGC( .000 1 .2 . *0 • • i 25 • ) 
call THKFRM(,03) 
call FRAY'S 

CALL CURVE(SR2G*520.PTSII) 
call CUflVE(SRlOO.SlOO,PTS2.“l) 
call CURVE(SRI 50*5150.PTS3.- I ) 

CALL CURVEtSfi20Q .S200.PTSA*-I ) 

CALL CURVE!SR225.S225.PTS5*- I ) 
call CURVe(SR250,S25C.PTS6.-I ) 

CALL CURve{Sfi275,S275*PTS7.-I) 

CALL CURve(SR3GG .S30Q.PTS8.- I ) 

CALL CURVE(SR325 ,5325.PTS9,-I ) 

CALL CURVE(SR35O.S350,PTSl0*-I ) 

CALL CURVE(SP375•S375,PTSlII) 

CALL CURVE(SRAOO .SAOC.PTS12.-I ) 

CALL CURVE{SRA25 .SA2S.PTS13*-I ) 

CALL RESET! • THKCRV ) 

CALL RESET!‘HEIGhT‘) 

CALL MESSAG { • TEf-PERA 7URE = S • • I 00 . A • 5.3 - ) 

CALL INTNQ(425• ‘AauT • • • AEUT* ) 

call messao(• (EH.3)c{ExHx)cs‘•100.•AeuT ‘.•abut 

CALL BLREC(4 .3.2.9.2 .7 • .4..02) 


call mesSAG{ • AL- I 0.2SMG-0.52%MNS‘ .100.3..5.5) 
CALL aLREC(2 .a.5.4.2.6..4.. 02) 

CALL GR I C{ I. I) 

CALL ENOPL(O) 

CALL OONEPL 
lOOC FORMAT!IX.F20.S.IX.F20.12) 

200C FORMAT! I X. X3) 

300C FORMAT! I X .3Fi2.5) 

STOP 

END 
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c 

c 

c 

c 

c 


10 

c 


c 

20 

c 

30 

c 


c 

40 

C 

5C 

C 


c 

60 

c 


Jt^jE STc?rs3 Tp^^r T "=20C 

PFCGRi'^ CCNOU’ES STRESS ^NC jTRAPl ^RQ:a 

ENGINcHPTJG 51PE3S ^ND AND 'l- = N PLOTS TRUJ 

STRESS AGAIN'ST TRUE STRAIfJ._^ 

EXTERNAL SLOPE 

REAL A1 (10) »A2(K),A3( 10 )t01 (10)t82(10),a2( 10) 

REAL SKIO) tS2 (1C) »S3( 10 ),E1 (10) ,62(10,23(10) 

REAL C ,C,2,S ,Cl-G ,T(: ,T0 , L5GPAK (500) 

INTEGER I,PTSl,rTS2 ,PTS3 
1=0 

WRITE(6,5) 

CCNTINUE 

REAO( 21 ,^,cN0 = 20 )A1 (I) , 81( I ) 

SKI) =A 1 (I )» ( Hei( I ) ) 

E1(I)=ALCG(81{I)>1) 

ADJUSTMENT rCP INSTPm AND ELASTIC STRAIN 
C=290. 

C=*015 
S = S1{I ) 

E=61( I ) 

CALL SLCFSICrC ,c ,StCHG) 

El( I)=ChG 

V<RITE (6,1)A1 ( I) ,5I( I),81 (I ) , El( I) 

GC TT 1C 
CONTINUE 
PTSl=I-l 

mill 11 mill 111 ] 11111 111 
1=0 

WRITE( 6,5 ) 

CCNTINUE 

I=H-1 

REAO( 22 ,^,£NC=40 )A2 (I) ,82( I ) 

S2(I)=A2(I)^( KB2( D) 

62(1)=ALCG(S2 ( I ) ) 

AISJUSTMENT PCP INSTFGN AND ELASTIC STRAIN 
C=387, 

C = .13 
S = S2( I ) 

E = <=2( I ) 

CALL SLCFEIC ,C ,E »S,ChG) 

E2( I)=ChG 

WRTTC(6,1)A2( I) ,S2(!),82(1 ) ,E2(I) 

GC T1 3C 
CQNTINLE 
PTS2=r-l 

22222222222222222222222222 

1=0 

WRIT*=( 6,5) 

CCNTINUE 
I = K1 

ReAO( 2 2,^,ENC = 6C )A3 (I) ,03(I ) 

S2 ( I ) = A3( I )•• ( ( I) ) 

E2(I)=ALCG(83(I)4l ) 

ACJUST'-ENT =CF INSTFCN AND ELASTIC STPilN 
C=368. 

C = »15 
S = S3( I ) 

E = E3( I ) 

CALL SLCFE(C ,C .3,3,ChG) 

E3( I )=ChC 

V.RITE (6,1) A2 ( I ) ,S3 ( I ),83 (I ) , c3( I ) 

GC TO 5C 
CCNTINUE 
FTS3=I-1 

■3-;*3o-33'a'3*:-:'a3*a*a*:‘:-3'r'5‘3‘:^3 33’:33-3 t- 

CALL CCMFFS . 

CALL =>aLY3 


INPUT FILES CF 
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c 


c 


c 

c 


c 


1 

2 

3 



C 


11 

21 


CMl 3L0'.»LP ( . £ f ) 

CML PAGEdlo ,c.5) 

CALL VIXiLF{ • INSTPU' ) 

VAxlIN^LINSST (LEGPJSH ,5^0 ,20) 

CALL LINFS( • f .A> 10(EH,^)-4i» ,LFG?AK , 1 ) 
LINFS( » S.6X 10(EH.5)-3 5• ,LCG^AK ,2 ) 
LINES(» Eo6>lC{EH. 5)-2S• ,L2G?AK ,3) 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


yYLCGN{*£TP/IN RATES L/Si', 16 ) 
FUTLRA 

SHCChR(SC.,l,.002,1) 

THKCFv( oC2 ) 

H6IGHT(.2 ) 

XNAHECTPUE STRAINS * ,100 ) 
yna/'EI'tple stress ( ( IMPA ( ) )S» ,100 ) 


CALL AREA2D(9.C,6.C) 

CALL HEACirn* i*,lC0,o5,2) 

CALL H6ACIM(* STRESS VS STPA INJ• , 100,1.5 ,2) 

CALL GRAF(Q., . CC2 ,•C1,0. , 100. ,6 50.) 

CALL THKFRM(oC3) 

CALL FPANG 

CURVES GC + + + 

CALL CURVEIFl ,S1 ,PTS1,^-1 ) 

CALL CURVE(62 ,S2,PlS2,^-n 
CALL CURVE(E3 ,S2 ,PTS3,+L ) 

CALL RcSFK 'THKCRV* ) 

CALL RESET!» HEIGHT' ) 

CALL LEGE.NC(LEG?/:k,3,5o4,3o ) 

CALL 3LRFC(5o 1 ,2o7 r 2e d ,1.5,.C2) 

CALL MESSAG! MEHP-FATURE = $ * , 100,2 . , 2 .5 ) 

CALL INTNO( 2C , *-iPLT • , ' ABLT’ ) 

CALL MESSAG! ' (EHo3 )0(EXHX)CS *,100, *A8UT*,*A8UT• ) 
CALL BLREC(l.E ,2.4 ,2.7,.4,.02) 

CALL MESSAG ( * d-ICo 2:2MG-0,5 2 3HN S • , 1 00,2.5,3 .5 ) 

CALL 9LFEC(2.i ,3oA ,2a 6,,4,o CO) 

CALL MESSAGI'ENC CATA '^CIMTS ! • , 100 ,1.2 , . 5 ) 

CALL MGSSAG! » INCICATH FR^CTUPE$' , 10C , •ABUT * ,'A3UT» ) 


CALL 9LFEC(lol,o* 

Vl^blMWWWWl,MWM K» l,W 


4,A 


o , o <_ *? , o 


02 ) 


CALL GRIC{2,2) 

CALL ENOFL(O) 

CALL DCNEPL 

FQR'^AT! 1X.,2F12.5,1X ,2F12.7) 

FCRMAT!IX,4F12.5) 

FORMAT! lX,4rl2<,5) 

FCRM/JT !1X, 13 ) 

FCRMAT!1X,/,4X ,'E^G STT.E S 3* , 2 X , • TRUE STRESS • ,2X ,* EMG STRA! M • 
S 'TRUE STF^IN* ,/) 

STOP 

END 

SUBROUTINE FCR CCRRECTING INSIRCN AND ELASTIC STRAIN 
SL8RQUTINE SLCPE !C , C,E,S,CHG ) 

PEAL C,C,6, S,CHG ,TC ,T0 
TC=C-^ ! 1. +0) 

TC^ALQG !C41o ) 

CHG^E-S^TO/TC 

IF!CHG.LE.Oa)GC TC 11 

GC TO 21 

CHG^Oo 

CCNTINUE 

RETURN 

END 


2 X , 
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ooooo 


10 

C 


C 

20 

30 

C 


40 

5C 

C 


c 

60 

c 


TRU3 STn:S£ \S TPUr STRAiri TriQCC^C 

THIS sFCGR-i'^ CCVPUTHS STR3SS ^NC STRAIT) INPUT =rLFS CF 

^NGlNcEFING STPcSS A.N C ^TRAIh, AND THEN PLOTS ^RUE 

E>TcRNAL SLOPE 

REAL Al(n)rA2(lC)fA3(10),ai(30),3 2(lC)r82(10) 

REAL SI (10) ,52(10 r S3( LO ),E1 (10 ) ,E2 (10 ), £3{ 10 ) 

REAL C ,C,CrS ,CHG,TC rTO,LEGPAK(500) 

INTEGER I,?TSI, PIS2 ,PTS3 

r=o 

ViRrTE( 6,5) 

CCNTI NUE 
I = H-l 

READ(81,^,EN0 = 2Q )A1(I) ^81(1) 

SKI) «A1 (D^diEK r ) ) 
ei(I)=ALCG(01(I)-H) 

ACJUSTWENT FGF USTPOM AND ELASTIC STRAIN 
C=350. 

C = ,l 
S=S1( I ) 

E = E1( ! ) 

CALL SLCFE(C,C,E,S,CHG) 

El(I)=ChG 

WRITE(6,1)A1(I),51{I),ai{I),E1(I) 

GO TO LC 
CCNTINUE 
PTSl-I-1 
1=0 

WRrTE(6,5) 

CCNTINUE 
I = K1 

R6A0(31,<,ENC=40 )A2 (I) ,82(I ) 

S2(I ) =A2 (I )•> (1^62(1)) 

E2{I)=ALCG(32( I )4l ) 

ADJUSTMENT FGP INSTFON AND ELASTIC STRAIN 
C=124. 

D=.033 
S=S2(I) 

E = E2( I ) 

CALL 3LCFE(C ,C ,c ,S,CHG) 

E2(I)=ChG 

:$iner:irx 

WRITE(6,2)A2( I ) ,S2( I ),82 (I ) , £2{I) 

GC 3C 
CQNT INLE 
PTS2=r-l 
1=0 

WRITE(6,5) 

CCNTINUE 
I = Kl 

REAO( 30 ,:*,ENC=60 )A3 (I) , 03( I ) 

S3 ( I ) = A 3 ( I ) * ( 1 H e 3 ( I ) ) 

E3(I)=ALrG(0E( 1 )^ 1 ) 

ADJUSTMENT FCF INSTFON AND ELASTIC STRAIN 
C=436, 

C = .13 
S = S3( I ) 

E=^3( I ) 

CALL SLCFE{C,C,6,S,CHG) 

E3(I)=CHG 

WRITE(6 ,3 ) A3 ( I ) ,S3 ( I ),83 (I ) , fS ( I ) 

GC TO 5C 
CCNTINUE 
PTS3=[-1 

WWnWWWWWWnW DIMENSION LEGPAK 

CALL CCMFF3 
CALL PCL>3 
CALL 3L0WLP(.85) 

CALL PAGE (ilo ,8.5) 
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c 


c 

c 


c 


C4 

5 


C 


11 

21 


CALL ( » I^ STPL » ) 

MAXLI N=L I'.'IST (LCGFAK ,5 ,20 ) 

CALL LINES(* 1C(EH« 5)-AS * ,L-GP^K ,1) 

CALL LINSS( » E.6X1C( EH.5 )-3S* ,L2G?AK ,2) 

CALL LINES( * 5 X 10(EH.5)-2S» ,L£GPAK ,3) 

CALL -'^YLEGr4 ( * STI^4 IN RATSS 1/S1*,16) 

CALL FUTLPA 

CALL 3FCCHR(FC. ,1,.C02,1) 

CALL THKCPV(.C2) 

CALL HEIGHT(«2) 

CALL XNAMF(*TPLE STRA INS» ,100) 

CALL YNAf-F(*TFLc STP ESS ( ( ) MP A ( ) ) S » , 100 ) 

CALL AREA2D( a.Cf6<.C) 

CALL HEACIN( • $• .ICO,.5,2) 

CALL HEACIN( * STRESS \S STRAIN 1• ,130,1*5 ,2) 

CALL GFAF(0.,.C5, .3,C.,13C.,6CC^) 

CALL THKFRM(.03 ) 

CALL FRAf^E 

CALL CURVE(S1,S1,FTS1,^-1) 

CALL CURV£(E2 ,S2,FTS2,>1 ) 

CALL CURVE(23 ,S2, FTS2,-k1) 

CALL RFSET('THKCFV* ) 

CALL RESET('HEIGhT* ) 

CALL LEGEN0(LEG?AK,3,5.4,3.) 

CALL BLFEC(5ol,2o7,2.5,ia5,.C2) 

WWWWW WUUlikWWW 

CALL wesSAG{ »TE^F5?ATURE = S» , 100,2•,2.5 ) 

CALL INTNQ(ICC, »ABUT*, »ABUT' ) 

CALL MESSAG( * ( EFo 2 ) 0( E XhX ) C 1» , 130 , * AB L'T » ,» AB UT » ) 

CALL 3LREC(lo6,2o4,2o7,.4,o32) 

VWUWIniptW 

CALL •'<g'SAG( '4L-J0 .:.;mG-0, 52?^N$• , 1 CC ,2. = ,3. S ) 

CA LL BLF. '«(2«^,3o4,2o6t .4, • C 2 ) 

Wk»,WUWWWWV,WWWMWVW;«VW 

CALL MESSAG(*ENO CAT^ POINTS CO NOT 5•,100,1.2,o5) 

CALL MESSAG( * INCICATE FR ICTUFES•,100ABUT*,*ABUT» ) 

CALL 3LREC(lol,o^4,5.,.24,.32) 

kWWkWW^WUWWIf^iUfWiM 

CALL SRIC(2,2) 

CALL ENOFKO ) 

CALL DCNFFL 

FORMAT( lX,2F12.f ,1X,2F12.7) 

F0PM^T(1X,4F!Z.f) 

FGRMAT(1>,4FI2.5) 

FC^JMAT ( IX, I 3 ) 

FCRMAT(1X,/,^X ,*ENG STRESS* ,2X,»TRUE STP=SS* ,2X,»ENG STRAIN* 
S'TRUE strain* ,/) 

STOP 

END 

SUBROUTINE FC? CCRPFCTING INSTRCN ANC ELASTIC STRAIN 
SUBROUTINE 5 L C? E (C , C , S ,CHG ) 

PEAL C ,C ,-,S ,ChG ,TC,T0 
TC=C=M1 o40) 

TC = ALCG (C+1. ) 

CHG=E-S^TO/TC 
IF(CHG.LE, }, )GC TC 11 
GC TO 21 
CHG^O. 


CCNTINUE 

RETURN 

END 


, 2 X 
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ooooo 


10 

C 


C 

20 

30 

C 


c 


40 

50 

C 


C 

60 

70 


C 


C 

30 

C 


STP'iS.^ '.S ST^ilN - = I5 CC 

THIS ^PCGPi> CC^PL^GS “"03 GSC ANC STPAITi P00:-1 ri^UZ 

ENGINEERING AND xuo THEN PUTS TRUE 

EXTERNAL SLOPE 

REAL AKIO) ,A2{1C) rA3(10)r31 {!0) rS2 (1C )fe3(i: ) 

REAL SI ( IJ) ,S2 (1C) t53(in ) rEl (10) »c2 (10) rE3{13) 

REAL A4 (10) , 04 (1C ) ,S4( 13 )r £4 CO ) »LSGPAK( 500 ) 

REAL C,C ,E» S ,ChG ,TC ,TD 
INTEGER IrPTSl,P152 »PTS3 ,?T34 
1=0 

WRITE(6,5 ) 

CONTINUE 
1 = 1 + 1 

BEAO(80 t^tENC = 2G )A1(I) tBl(I) 

SI (I) =Ai (I)» (nei ( I ) ) 

E1(I)=ALCG(B1 (I)+n 

ADJUSTMENT FOP INSTPON AND ELASTIC STRAIN 
C=213o 
C = .13 
S=S1( I ) 

E = E1( I ) 

CALL SLCFE(C»C,c,S»CHG) 

El( I) =C)-G 

444=* 

WRITE (6,1)A1 { I ) rSK I), B1 (I ) , ei( I) 

GC TO 1C 
CONTINUE 
PTS1= I-l 
1=0 

WRITE(6,5) 

CONTINUE 
1 = 1+1 

PEAO( 47 ,:>,SNC = 40 )A2 (I) f B2( I ) 

S2(i) =A2(r )-Mi*»e2(r)) 

E2(I) =ALCG(62 (DO 

ACJUSTMENT INSTFQM AND ELASTIC STRAIN 

C=255. 

0 = .l 
S = 52( 1) 

E = E2( I ) 

CALL SLCF = (C*CrE,S,CHG) 

E2(I)=CHC 

WR ITE(6,2)A2( I ) ,52(I)r 32(I ) ,£2(1) 

GC TO 3C 
C3NTINLE 
PTS2= r-1 
1=0 

WRITE(6,5) 

CONTINUE 
l = I + l 

REAa(46,^,£N0 = 60 )A3(I) ,03(1) 

S3 (I ) =A2 (T)-^ ( 1 ^e3( I ) ) 

E3 (I ) =ALCG( 33 ( I )4n 

ACJUSTMENT FCF INSTFON AND ELASTIC STRAIN 
C=230. 

C = ,l 
S = S3( I) 

E = E3( r) 

CALL SLCFE(C ,C ,£ ,S,CHG) 

E3(I)=ChC 

4444:rr 

URITH(6,3 ) A3 ( I) ,S3( I ),33 (I) r E3(I) 

CC TO 5C 
CONTINUE 
FTS3=I-1 
1 = 0 

WR!TE(6,5 ) 

CCNTINUE 
I=I + l 


Re^O(32 ,ENC=e^ )A4 (1) ,04(I ) 

S4( I ) =A4 ( I ) < ( I -tPA ( I ) ) 

E4(I)=A LCG(B4 ( I ) ) 

ACJUSTMENT FOP INSTFCN AND ELASTIC STRAIN 
C=334.^ 

C = ,l 

S = S4( I ) 

E=E4( I ) 

CALL SLCFECC ,C ,crS,CHG) 

E4(I)=ChG 

4«k4 

WPITH(6,3)A4( I),54(I),B4(I) ,E^(I) 

GC TO 7C 
CCNTINUE 
PTS4*I-1 

WwUb,wwwwwWH CIMENSION LEGPAK 


^IL 


88 


vjinoJr\)r-* 


C 


c 

c 


c 


c 


11 

21 


CALL COMPPS 
C4LL PCLY3 
CALL 3LGWLP(.S5) 

CALL PAG3 (Jl.,f) 

CALL MI>iLF(* INSTRU ») 
f-AXLlN = LIMcST (L2C-P4K ,5 10 ,Z0) 

CALL LiNcS( ' 5 .6X10(SH, 5)-4 5• rLEGPAK,1 ) 

CALL LUSS( * 5.6>ia( 5)-3$» ,LcGPAK ,2) 

CALL LU6i( *5.6X10 (5Ho 51-2$ • rLEGPAK ,3) 

CALL LI^eS { » lo4Xl0 CHo 5 )-l$* tLEGPAK ,4 ) 

CALL ■'^YLSGN( • STRAIN RATES 1/Sl*,l6) 

CALL FUTLRA 

CALL SHCChR(PCo .lfoC02 t1 ) 

CALL THKCPV(oC2) 

CALL HE1GHT(.2) 

CALL XNAf-E (’“tqlc STP 6 IM$ • ,100 ) 

CALL YNA^•E(*TRL£ SIP ESS (() MP A {))$», 1 0 0 ) 

CALL ARE420(8oC,6.0) 

CALL HFACirK • i» ,100,.5 ,2) 

CALL HEAC IM( »STRESS \S SToA INS • , 10^, 1.f ,2) 

CALL GPAF(0oroi.5, .3 r»-oi IOC. ,6CC. ) 

CALL THKF°M(.C3) 

CALL FRA^E 

CALL CURVE (El ,S1 rFT£l,4»l ) 

CALL CURVE(52 ,S2 ,PTS2,>1) 

CALL CURVE(S3 , S2 , FTS3 ) 

CALL CURVECEA ,54 ,FTS4,>1) 

CALL RESETC » ThKCFV•) 

CALL RESETC » FEIGI-Tt ) 

CALL L£GE;N0(LEGFAK,4,3.3,4.5 ) 

CALL ELRECC5. ,^o3 ,2o5,1.5,.02) 

w vwuwwvw 

CALL MESSAG( »7Ef-FEPArjRE = ? » ,100,2 . , 2 o 5 ) 

CALL INTNG(15C, »A8UT*, «A8UT» ) 

CALL MESSAGl • { Sh.3)Q(HXhX)Cl* ,100, 'ABUT* , »ABUT* ) 

C A LL 3 L F EC (loS ,£.o4»ca7,.4,.02) 

CALL MESSAGC * AL-10.2:;MG-0. 52 ?^N$ » ,100,1.7,5.3) 

CALL 0LFEC(lo5,5o2 ,2o 6,o4,.C2) 

CALL MESSAG(*ENC LAT^ PCIMTS CC NOT £ * , 100,1.2,,5 ) 

CALL ^ES£AG( 'INCICATE FRACTU?£ I» , 100 , *A6UT* ,»ABUT* ) 

CALL eLFEC(lo 1 ,o44 ,4o9,o24, oC2) 

CALL GRIC(2,2) 

CALL ENDFKOI 
CALL OCNEFL 

FCPMAT(lX,2^12o5 ,1X,2F12o7) 

F0RMAT(1>,4F12.5) 

FOPMAK 1>,4F1 5.f ) 

FC'JM AT (IX, 13 ) 

FCPMAT(l>,/,4> ,*ENG STRE S3* ,2X ,» TRUE ST P ESS * , 2X , * ENG STRAIN*,2X, 
a)*TRUE STRAIN* ,/) 

STOP 

6NO 

SUBROUTINE FCP CCRRCCTING INSTRCN ANC ELASTIC STRAIN *’*«*'^* 
SUBROUTINE S L C F >= (C , C , E , S ,C HG ) 

REAL C , C ,.r , 3 ,C)-G ,TC , TO 
TC=C-’M 1.^0) 

TC = ALCG (C + lo ) 

CI-G=E-S^TO/TC 
IF(CHG.LE.O. )GC TC 11 
GG TO 21 
C hG—0 o 
CCNTINUE 

return 

END 


89 


c 

c 

c 

c 

c 


10 


20 

c 

30 


40 

C 

50 


60 

C 

70 


TPUf £1P=5S \S 7PL£ STPM.N :T T=70C 
THIS PPCCPA*- COPL73S ’"U: :TP?S: Af.'C STRUf^- ? 
EMGr.'lEEPTMG ^TPESS ViO £TP4 I^ , A.'iO ^hzU PLOTS 
STRESS AGAINST TRUE STPil'U 

x: >44 t 4 :* i rWs « j*: t 4 4 ^ =*’« 4 t 4 ^ »«* 

EXTERNAL SLOPE 

REAL A1 ( 10) , 42 { 10 ,43( 10 ), A4 (10 ) ,A5 (10 )♦ A6( 10 ) 
REAL A7(lC),AE(lC),49(i0),AlC(10) 

REAL ei (10) ,e2( 1C) ,03( 10 ), 84( 1C),a5( 10) ,a6( 10 ) 
REAL 87(10) ,aE(lC) r89( 10) taiCdO) 

REAL S1(10),S2(1C),S3(10),S4(1C) ,S5(1C) »S6(10) 
REAL S7(10) ,S8(lC)r59(10)f51C(10) 

REAL 51(10) , £2 (1C) fE3( 10 ),E4( 10) »C5 (10), E6( 10)- 
REAL 57(10) ,c8(lC) ,E9<10),clC(10) 

REAL C ,C ,E,S ,ChG ,TC , TO,LEGPAK(500) 

INTEGER T.PTEl tPlSa tP'^SS ,PTS4 ,PTS5 , PTS6 
INTEGER FTS7,FTS8,P1S9,PTS10 
1 = 0 

V,fiITE( 6,5) 

CONTINUE 
I = I + l 

REAO( 74,^,ENC=20 )A 1 (I) , aid ) 

S1(I)=A1 (D^M 1^01( I ) ) 

El(I)=ALCG(Bl(I)4l) 

ACJUSTMEM FCP INSTFON ANO ELASTIC STRAIN 
C^45d 
C=.033 
S = S1 ( I ) 

E=E1( I ) 

CALL SLCFE(C ,C ,E,S,CHG) 

El( I) =ChG 

44x:iis 

WRITE (6,1) A1 ( I) ,S1( I), 01 (I ) , £1( D 

GC TO IC 

CCNTINUE 

FTSl=r-l 

llllllllllllllllinil 

1=0 

V,RITE( 6,5) 

ccntinue 
1 = 1 + 1 

REAO(71 ,3NC=4C )A2 (I) ,32(1) 

S2( I) =42(1 )=^ ( 1 ^82 ( I ) ) 

E2(I) =AUCG(e3 ( I)-^i ) 

ACJUSTMEM FCP USTPCN AND ELASTIC STRAIN 
C=105. 

C = .15 
S = S2(I ) 

E = E2( I ) 

CALL SLCFF(C ,C ,£ ,S,CHG) 

E2(I)=ChG 

WRITE(6,2)A2(I) ,S2( I),a2(I ) ,E2(I) 

GC TO 3C 
CCNTINUE 
PTS2= I-l 

222222222222222222222 
1 = 0 

WRITE(6,5) 

CCNTINUE 
I = I+l 

REAn( 45 ,=> ,EMC = 6C )A3 (I) , a3( I ) 

S3( I ) =A3 ( I )>M 1 ->82 ( I ) ) 

E3(I) =ALCG( 13 ( I )■»!) 

ACJUSTMENT FCF INSTFCN AND ELASTIC STRAIN •*:*^+*' 
C=106, 

C=.l 
S = S3( I ) 

E=E3( I ) 

CALL SLCFE(C,C,E,SrCHG) 

E3(I)=CHG 

4 

rtR IT3( 6,3 )A3 ( I ) , S3 ( I ), 13 (I ) , c3( I ) 

GC TO rC 
CCNTINU? 

FTS3= I-l 

*:‘:iTa3'3'3--3'33-3-3-*r';t'3*3'5n3 3^“a 

*f=6. 

WFITE(6,5) 

CCNTINUE 
1 = 1+1 

REAO( 44,*,eNC = 8G)A4(I),a4d) 

S4( I ) =A4 (I )•? ( 1 ■te4( I ) ) 

E4(I)=salcg(B 4 (n+i) 

ACJUSTM6NT FCP INSTFGN ANO ELASTIC STRAIN 
C=L13. 

C=.l 
S=S4(D 
E=E4( I ) 

CALL SLCFE(C,C,c,S,CHG) 

E4(I)=ChG 


ROM iriPUT 
TRUE 


= IL 


90 



30 

C 

90 


ICO 

C 

2C0 


300 

C 

400 


500 

c 

c 


WftITE(6 ,1)A4( I ) , 54( I),84 (I } , r4 ( I ) 

GC *1 
CCMTINUE 
PTS4= r-1 

^4444444444444^^44^444444^44 

1=0 

WRIT5(6,5) 

CCNTINU6 
I = l4l 

REAO{ 43,<,E^C^irC )^5(I) ,85(1) 

S5(I )=A5(I)^(1^e5( I ) ) 

55(I)=ALCG(35(3)4l) 

ACJUSTMENT FCP USTPOM AND ELASTIC STRAIN 
C = i66«. 

C = .l 
S = S5( I) 

E=E5( I ) 

CALL SLCPE(C ,C,c,S,CHG) 

E5(I )=Ch;G 

WRITE(6,2)A5( I) ,S5(I),B5(I) ,E5( I) 

GC tg 9C 
CCNTINUE 
PTS5=I-l 

55555555555555555555555555555 

1=0 

WRITE(6,5) 

CCNTINUE 

I=I>1 

READ(42 ,ENC = 3CC )^6(1 ) , E6( I ) 

S6(I)=A6 (I) M1^06(I ) ) 

E6(I)=ALCG(36(1)41) 

ACJUSTMENT FCF INSTPCM AND ELASTIC STRAIN 
C=202o 
C = .a3 
S=S6( I ) 

E=F6(I) 

CALL 5LCFE(C,C,E,S,ChG) 

E6(I)=ChG 

WRITE(6,2)A6( I ) , E6 ( I ),B6 (I ) , £6(I ) 

GC ^3 2CC 

CCNTINUE 

PTS6=I-1 

666666666666666666666666666666666666 
1 = 0 

WRITE(6,5) 

CCNTINUE 
r = i>i 

PFAD(33 ,*,£NC = 5CC )A7(I ) ,a7(I ) 

S7( I) =A7 (I)'* ( 1 ^e7( ! ) ) 

E7(I) =ALCG(B'7 ( I)4l ) 

ACJUS7'-ENT FCF INSTPCN ^N3 ELASTIC STRAIN •t- 

C=257« 

C = ol5 
S=S7(I) 

E = 67( I ) 

CALL SLCFH(C ,C ,E,S,CHG) 

E7(I)=CHG 


WRITE(6,1)A7( I) ,57(I),87 (I) ,£7{I) 

GC ■»'3 4CC 

CCNTINUE 

PTS7=I-l 

77777777777777777777777777777777777777 
CI'^ENSICN LEGPAK 
CALL CQMFFS 
CALL SMOCTH 
CALL P0LY3 
CALL BLaWLP(«85) 

CALL PAGEdl. ,6.5) 


CALL '^nALFC 'INETRUM 
MAXLIN = L INEST (LEGPAh ,500,20) 
CALL LINES( ' 1.4>1C(FH.5)-4S^ 
LINeS( » 5.6X10 ( '"H, 5 )-^S 
LINES( ' T.4Xia('=H.5)-3i‘ 


n« ^ I —zi ■» ,i.tv 

LINES! '5.6>10(EH.5)-3$• ,LE( 
LINES! ' lo4X 1C(FH.5)-2$* ,LE( 
LINES! ’5.6X 1C(EH.5)-2$» ,LE( 


,LEGP\K ,1 ) 

, LEG?AK , 2) 

, LEGPAK ,3 ) 

,LEGPAK ,4) 

,LEGPAK ,5 ) 

Li^tb^ ’ r.txiuiii4. p I-'5' ,LEGF\K ,6) 
LINES! M.4X10(EH. 5)-lS» , LEGPAK ,7) 
MYLCGM('STRAIN RATES L/54',16) 

FUTL.OA 

SFCCHR(9C. ,1,.C02,1) 
tHkCcV(oC2) 

LALL HE IGhT( a 2 ) 

CALL XNAMECTPLE ST R A INi » , 100 ) 

CALL YNAME('TFL£ STRESS (!) MPA ())$•,100) 
CALL ARFA2n(9oC,6.G) 

CALL HEACIM(» i* ,lCO,o5,2 ) 

CALL HEACIN( 'STRESS \S STP A INS ' , 100,1.5 ,2 ) 

91 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 




c 


c 

c 


C4 

5 


11 

21 


CALL GRAF(O, , .I ,i.C , 

CALL THKFRM(oC3) 

CALL FPANC 
CALL CUPV6(E1 , S1 , FT S 1,4* 1 ) 

CUB >^=(-2 “ - ' ‘ 

cupve(‘:3 


. 6CC.) 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


,S 2 ,FTS 2,>1 ) 
. 52 , FT 52,^1 ) 
CUBVe(=H,SA,FT5A, + l ) 
CU?iVE(25 ,55,F1S5,>1 ) 
CURVE(E6,S6,FT56,4*1) 
CUP^^E(':T 57 + l ) 

PE :5"^{ * ) 


CALL R£5cT( * hFlGl-T ' ) 

CALL LEGENDtLEGF ;k , 7 ,2.5 ,G. ) 

CALL BLPFCt 5^ 2 %2 ,2«3, ZoStm^Z) 

WI«»w,WViU(*if,Hv»iin*»Ul»WUwUUW 


CALL .M65SAG( 'TE^FEPATURE = S*,I00,2 
CALL INTNG(2CC,*A8LT*, 'ABUT* ) 

CALL MES5AG(* ( 5 haJ )Q( EX l-X ) C 1 • , 100 , 
CALL SLFEC ( 1.5 ,^.4,2.7 ,.*4, .02 ) 

UW^WWinUWUlnW'MWW Vn 


.,4.5 ) 

*A8UT» 


•ABUT * ) 


CALL .^eSSAG ( * AL-:0a:iMG-O.5 2?^N$' , 1 GO , 2 o3,5.5 ) 

CALL 3LPeC(2a3,5o4,2.6,.4,.02 ) 

CALL MC55,^G(•c^O CATA PCI.NTS CC NOT 5 • , 100,1.2 , . 1 ) 

CALL MES5AG( ♦INDICATE FPAC^UPE$*,100,*ABUT* ABUT* ) 

CALL BLPEC(lol,oC5,4o?,o24,aC^) 

CALL GRIC(2,2} 

CALL £NDFL(0) 

CALL OCNEFL 
FCPHAK 1>,4F1Z. 5 ) 

FCRMATC lX,*tF12.3 ) 

FORMATC1X,4F12.5) 

FORMAT(IX,I 2) 

FCFMAT(IX♦/,4X,‘ENG STRESS» ,2> , * TRUE ETRE5S• ,2X,•ENG STRA(N»,2X 


G * TRUE 3TF Ai:i* ,/ ) 

STOP 

END 

SUBROUTINE S LCFE (C , C ,2,5 ,CHG ) 
REAL C , C ,E , 3 , ChG I T(I ,Tn 
TC=C-(la>0) 

TC = ALCG(C>1. ) 

C)-G=c-S<TO/TC 
IF(CHGoLEaOa)GC TC 11 
GC TO 21 
C)“G=0. 

CCNTINUE 

RETURN 

END 
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Tnli= 'T^'SS \5 T=225C 

THIS =cr(;:^A.v CC.-PbTES ^'U2 STRESS ^.^)C STPATl ‘=P0'^ I.'IPUT 
SNGL'J^EPriG ST^SSS .\MD 'TOjs.I^, V]0 THEN PLOTS T°UE 
STRESS <2GAIN5T T^LE S'^R^I.No 

EXTERNAL SLOPE 

REAL A1 I 10) , a2( 1C),A3( 10 ),AA(1C) ,A5I 1C),A6( 10) 

REAL A7(1C) ,A8(IC),;0(10 ),AX Clio) 

REAL 31 (10),ea{lC),83110),a4{10) r85(10) »86(10) 

REAL 57 110) ,68{1C ),69110 ),8 1C(10) 

REAL Sl(lO) ,52(10 ,S3( 10),S4(10) ,S5 (1C) ,36(10) 

REAL $7 00) ,58(10 ,S9( 10),31C(IO) 

REAL El (10 ) , 82(10 , E3( 10 ),r4 (10 ) ,c5 (10 ) ,e6( 10) 

REAL E7(10),68(10,E9(10),clC(10) 

PEAL C ,C,S,5 ,C1-G ,TC ,TD , L EG? & K ( 500) 

INTEGER I fPTSl ,PTS2 ,PTS3 ,PTS4,PTS5,PTS6 
INTEGER FTS7,P7S6,P1S9,PTS10 
1=0 

WRITE(6,5) 

CONTINUE 
1=1 + 1 

R£AO( 77,=? ,eNC = 2C)AT (I) ,31(1) 

SI (I) =Ai (I )^ (i^eu I ) ) 

81(1 )=ALCG(B1 (I)-H ) 

ACJUSTME^T FCP INSTPON AND ELASTIC STRAIN 
C = 39*l 
C = .l 
S = S1( I ) 

E=E1(I ) 

CALL SLCFEIC ,C ,£ ,S ,CHG) 

El(I)=ChC 

WRITE (6,1) A1 (I) , Sl( I),ai (I) , EKI ) 

GC TO 1C 
CCNTTNUE 
PTS1=1-1 

lllllllllllllinillll 

1=0 

WPITE(6,5) 

CCNTINLE 
I=T + l 

REAO( 7R ,=? ,cNC=40 )A2 (I ) , 82( I ) 

52(1) =A2 ( I 1=^^ (1 ^e2 ( I ) ) 

£2(I)=ALCG(82( l)^l ) 

ACJUST^-e^T FCF USTFCN AND ELASTIC STRAIN 
C = 61o 

S = S2( I ) 

E=i2( I I 

CALL SLCFE(C,C,E,S,CHGI 
£2(11 =CI-G 

4«a|iAa( 

WRITE(6 ,2)A2 I I) ,52{ I ),82 (I), I2(I) 

GC TO 3C 
CONTINUE 

. 

222222 222 1 :,22 2 A ^ c ^ ^ 

1=0 

^RITE( 6,5 ) 

CCNTTNUE 

1=1+1 

REA0(79,w,cNC=6C)A3(I) ,83(1 ) 

S3( I) =A2 (I )-^ I 1 -leo I ) ) 

E2(I) =ALCG(33{ D-^l ) 

ACJUSTHENT FCP I^STPON AND ELASTIC STRAIN 
C=62o 7 
C = *l 
S=S3( I ) 

E=E3(I) 

CALL SLCFE(C ,C ,E,5,CHG) 

E3( I)=C)-C 

WRIT2I 6,2)A3 ( I) ,5?(I),33 ir) ,82(1) 

CC TO 5C 
CCNTINUE 
PTS3=r-l 

•=‘3*3*3333 - '3'33'a*3'3'5-' 

'1=0 

WRITE(6, E ) 

CCNTINUE 
I = I + l 

REAO( 50,cNC=eC )A4(I) ,34(1) 

S4( I ) =A4( r lii { 1 ^e4( I ) ) 

E4(r)=ALCG(84( I )+l) 

ACJUSTf^ENT FCP INSTPON AND ELASTIC STRAIN 
C=84.1 
C=.15 
5=S4(1) 

=E4( I ) 


;33332 


CALL SLCPE(C,C,£,S,CHG) 
E4{I)^ChC 


93 



WR ITr(6 t 1 )A4 ( I ) ,S4( I ) t 34(I ) , (I) 

GC n 7C 
3 0 CCNTIT'JUE 

PTS4=I-1 

C A44444444444 

1=0 

WPITc(6,5 ) 

90 CCNTINUE 

I = H-1 

RFAD(49r*t3NC=i:C)ii5(I ) , E5 ( I ) 

S5 ( I ) =A5 (I ) ' { 1 405 ( I ) I 
E5(I)=dLCG(05 (1)41) 

C A0JUS7MEM FCF INSTRQ.'J A^D ELASTIC STRAIN 

C=lll. 

0=*1 
5=S5( I ) 

E=E5( I ) 

CALL SLCFE(C,0 lE,S»CHG) 

E5(I)=CHG 
C 

WRITE(6,2)A5( I) ,S5(I),a5(I ),E5(I) 

GC T3 <=>0 
ICO CONTINUE 

PTS5=I-1 

Q c e c c ^ ^ = e c c cc c c c e c e c c c ^ c c ^ ^ 

.... 

V»PITT(E,5) 

2C0 CONTINUE 

1 = 14-1 

REA0(4a,^,EMC = 2:C)A^(r) ,26(I ) 

S6( I ) =A6 (I )*M1 4eE( I ) ) 

E6(I)=ALCG(06 ( I ) 4l ) 

C AOJUSTV»EM FCR I^STPGN ANO ELASTIC STRAIN -:<*3r-c=: 

C=2O0* 

□=•15 
S = $6( I ) 
c=E6(I ) 

CALL SLCFE(CtC ,E ,S ,CHGI 
E6(I)=ChG 

C 

WRITE I 6,2)A6(I)t 56( I),B6(I) , t6(I) 

GC TO 2CC 
200 CCNTINUE 

PTS6= I-I 

C 666666666666666666666666666666666666 

1=0 

WRITE(6,5) 

4C0 CONTINUE 

1 = 14-1 

REA0(34,*,PNC=50C)47(I ) ,e7( I ) 
S7(I)=A7(r)-^(l4P7II)) 

67(1)=ALCG(87( I)4l ) 

C ACJUS’NEM for INSTFjN and ELASTIC STRAIN < 

C=222o 
C = ,»L 
S=S7( I) 
c=E7( I ) 

CALL SLCFEICtC ,E,S,CHG) 

£7(I)=ChG 

«RITE(6,1)A7( I),S7( I)t37(I) ,c7(I) 

GC TO 4CC 
SCO CCNTINUE 

PTS7=I-1 

C 77777777777777777777777777777777777777 

C CIMENSICN LHGPAK 

CCMPCS 
3MCCTH 
P0LY2 

BLCWUP(«E5) 

PAGEdl. »E. 5) 


CALL 
CALL 
CALL 
CALL 

CALL _ 

CALL • INMPU » ) 

f-AXLI N = L IN6 5T (LEGPAK ,500 ,20 ) 

CALL LINES( 'loAXlC(=Ho 5)-4S • ,LFGPAK,1) 
5.6X10(EH,5)-4S» ,LEGPAK ,2) 
1.4)cin( EH.5 )-3S* ,LEGPAK,3) 
5.6:<1C( EH* 5)-3$ » ,LEGPAK ,4) 
1*4X10(EHo5)-2S* ,LEGPAK ,5) 
5.6X1C(EH. 5)-2S* ,LEGPAK ,6) 
3 *4X10(EH.5)-l$ • fLEGPAK ,7) 
' STRMN RATES 1/51* , 16 ) 


LirES(' 

LINES! 

LINES! 

LINES( 

LINES! 

LINES! 

.‘^YLEGN! 

FUTLRA 

SHCCHR!SC, , 1,.002 , I ) 

THKCRV(oC2 ) 

HEIGHT!.2) 

CALL XNAf-6(»TPUE STR AIM $ • ,100 ) 

CALL YNAME(»TPLE STRESS( ( ) MPA ( ) ) S•,1 CO ) 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 
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>l>irOh-» 


C4 

5 


11 

Zl 


CALL \?EA2D(6aC,6o':) 

CALL H = ACrj ( • i * ,lCn, c5 ,2 ) 

CALL rlEACDC • \S ST^A I N'I • , 130 , 1.5 ,2 ) 

CALL jr5AF(^» f *1 •*«(» C«» iQC« y6CC« ) 

CALL THKFFM(oC2) 

CALL FPANE 

CALL CUPVeiEl ,^1 rFTSl,’^! ) 

CALL CURV6{*=2 ,52,FTS:,^1 ) 

CALL CURVC{33 ,C3 rFTS3,^l) 

CALL CUPVF(-4,5A,PTS^,^1) 

CALL CUPV8( = 3 ,55,FT55,^l ) 

CALL CURVElCe ,56,F756,>1) 

CALL CUPVE(37,57 ,FTS7,>1 ) 

CALL RECETl•ThKCFV ») 

CALL RHSET{'hEIGHT') 

CALL LEGE:J0( L5GF;h ,7,5.5 ,3. ) 

CALL 3LPEC( 5© 2 t ol ,2o5,2.3, • C2) 

V«lwViW»J wuww^wu^v»vwv^»,v,w 

CALL .MFS5AG( • T3*^FEFATURE = S • ,100,2 . ,4 .5 ) 

CALL INTNO{ 22 5,'^eLTS 'ABUT' ) 

CALL MESS iG ( • ( E ho 3 )0 ( EX hX ) C 5 * , 100 , MBUT’ , • ABUT • ) 

CALL 3L?cC(1.6,4.A,i.7,.4,.a2) 

ln)MNWWWd^WlnMWInWV*WWWk,»W 

CALL .MF£SAG( ' AL-lOoS^MG-'^oSE 5hM$ » , 100,2.5,5.5 ) 

CALL BL?6C{ 2o3 ,5oA ,3o6,o4,oC2) 
kW(NMMVlhWI,^H’nt^»lnWWinUV,U4 

CALL MESSAG('ENC CATA PC:‘ITS CC NOT $>,100,1.2,.!) 

CALL MESSAG('INCICATS FrACTURE!',100,■ABUT»,>ABUT») 

CALL eLPEC(lol,oC6,4o9,o24,oC2) 

CALL GRIC(2,2 ) 

CALL ENDFL(O) 

CALL OCNEFL 
FCRMATl1>,4F12.5) 

FORMAT!1X,4F12.5 ) 

FCRMAT!IX,4F12.5 ) 

FCRMAT{1X,I3 ) 

FORMAT(IX,/,AX ,»EhG STRESS» ,2X , 'T^UE STRESS» ,2X,»EMG STRACN»,2X, 
3 'TRUE STPMM' ,/) 

CJ;^0 

END* 

SLBPOLITINE SLC FE (C , C ,E , S ,C HG ) 

REAL C , C S ,ChG ,TC ,T3 
TC=C Ml. +0) 

TD=ALCG(C + 1. ) 

ChG=E-S=*TO/TC 
IFiCHG.LEoO. )GC TC 11 
GC ^0 21 
ChG* ). 

CCNTINUE 

RETURN 

END 
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c 

c 

c 

c 

c 


10 

c 


c 

20 

c 

30 

C 


C 

40 

C 

50 

C 


c 

6C 

C 

70 

C 


C 


TR'J’: STPr£3 ^5 "Pf: M 

Thtc ^qroA.i.v CC^PU'^PS STRESS iriC 

ENGlMEEPiriG STRESS A.'iO '“TR ^ IN , V40 Th 
STRESS AGAINST THUS STRAIN* 

Hi3s:itr: :? •* :* sr^JtrKjr: v.S ;* 9 ±i.<£ **9’:*^!'^ 

external slope 

REAL AKIO) ,A2(:C),A3(10),A4(1C) ,A5(1C),A6(10) 
REAL A7(n) ,Ae( 1C ) ,A9( 10 ),A1C (10) 

REAL 81 {1 ))♦a2( 1C) »a3(10 »fB4 ( IG) ,B5(1C ) fa6(10) 
REAL 87 (10) , 88(1C )r89( 10 ), BlCdO ) 

REAL SI(10)r S2(1C) ,S3(10 ) ,S4( 10 ) ,35 (10) ,S6(10) 
REAL 37(n),S6(lC),S9(:D),SlC(10) 

REAL El(10) ,E2(1C)rE3(10 ),E4 (10),£5(10)rL6(10) 
REAL £7( 10) ,£6 (1C) ,c9(10 ) ,21C(10) 

REAL C .C ,E,S ,CHG,TC,T0,LEGPAK(500) 

INTEGER I,PTS1,PTS2rPTSl ,PTS4,?TS5,PTS6 

INTEGER FTS7 ,FTS€,PlS9,PTS10 

r=o 

WRITE(6,5) 

CCNTINUE 
I-I + l 

REAr)( 6E,^,ENC = 2C)A1 (I) ,81(1) 
si(I) =Ai(I ):^ ( nei( I ) ) 

£1(1) =ALCG( 01(1)41) 

ACJUSTNENT FCP INSTFQM AND ELASTIC STRAIN 
C=15.3 
C=.075 
S=S1( I ) 

E^EK I ) 

CALL SLCFE(C ,C ,E ,S ,CHG) 

El( 1) =Ch(S 

9 

URITE(6,1) Aid) ,S1( I),ai(I) ,E1(I) 

GC TO 1C 
CCNTINUE 
PTS1=I-1 

mill iiiiiiiimiiii 
1=0 

V.RITE( 6,5) 

CCNTINUE 
1 = 141 

R5A0( 72,^,cNC=40 )A2(I) , 02(1 ) 
S2(I)=A2(I)-(l4e2(I)) 

E2(I) =ALCC-(32( I )-»I ) 

ACJUSTNENT eCF INSTFCN AND ELASTIC STRAIN 
C=20.I 
D=*042 
S = S2( I } 

E=62( I ) 

CALL SLCF=(C ,C ,E,S,CHG) 

E2(I)=ChG 

. WRITE(6 ,2)A2( I),S2( I ),82 (I),E2(I) 

GC TO 3C 
CCNTINUE 
PTS2=I-1 

222222 222222222 22 2222 
1=0 

URm( 6,5) 

CCNTINUE 

I = l4l 

REAO( 71 ,2NC=6C )A3(I) ,a2(r ) 

S3( I)=A3(I )•“ ( 1 i^2{ I ) ) 

E3(I)=A tCG(02 ( r )4l ) 

ACJUSTMENT FCR INSTRON and elastic strain 
C=27o 5 
C=.083 
S=S3(I ) 

£=E3( I ) 

CALL SLCFE(C,C,£,S,CHG) 

£3( I) =ChG 

^^XjUEK 

WRITE(6,3)A3 ( I) ,S3(I),83(I) , S2(I) 

GC tt 5C 
CCNTINUE 
PTS3=I-1 

T’a‘3393‘3'3‘3TI"3‘3 

'r=n. 

UPITE(6, f ) 

CCNTINUE 
I = I + l 

REAO( 70,<,cNC=8C )A4 (I) ,a4(I ) 

S4(I ) =A4 ( I )* ( 1 «*e4 ( I ) ) 

E4(I)=ALCG(84( 1 ) + l ) 

ACJUST.-ENT FCF INSTFON AND ELASTIC STRAIN 
C=37.6 
0=,! 

S = S4( I) 

E = E4( I ) 

CALL SLCFE(C,C ,c,SrCHG) 

E4(I)=CHG 
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STR UN PROM INPUT 
N PLCTS TRUE 


= il:s 



90 

C 

90 

C 

c 

ICO 

c 

2C0 

C 

c 

3C0 

C 

4C0 

C 

c 

5C3 

C 

600 

C 

C 

7C0 

C 

800 


1^3 (6 11 )A4 { I ) ( I ) , 34 (I ) , S4( I ) 

GG Tj 7C 
CCNTr.'UE 
FTS4=r--i 

4 44 4444 4 44444 44 4 4 4444444 

1=0 

WPITH(6,5) 

CONTINUE 
i = r>i 

READ (68 »^,GNC = ICC)>;5(I ) , £5 ( I ) 
S5(n=A5(T)^(nef(I)) 

£5(I)=ALCG(e5 (1)^1 ) 

ADJUSTMENT FCF INSTRQN AND HlASTIC STRAIN 
C=54.3 


E = E5( I ) 

CALL SLCFF(C ri *ErS»CHG) 
E5(I}=CI-G 


WPIT’E(6,2)A5( n ,S5(n,a5 (I) , Ef (I ) 

GC Tn 9C 
CCNTINue 
PTS5=I-1 

5f555555f5555 5 Ef5555 55555555 5 
1=0 

UPITE(6,5) 

CCNTINUE 
I = H*1 

READ(67,<,=NC = 3CC)A6(r) ,£6( I ) 

S6( I ) =A6 (I )^ (1 •»e6 ( I ) ) 

E6{I)=ALCG(B6 (1)41) 

adjustment FCR r^STFON AND ELASTIC STRAIN 
C = 53* 9 
C=.067 
S=S6(I) 

E = 56( I ) 

CALL SLCFE(C,C ,c ,S ,CHG) 

E6(I}=ChG 

WRITE(6,2)A6 ( I ) ,S6(I),36 (I ) ,£6( I ) 

GC TO 2CC 
CCNTINUE 
PTS6= I-l 

666666666666666666666666666666666666 

1=0 

WPITE(6 ,5) 

CCNTINUE 
1 = 14-1 

RFAD(65,ENC = 5CC 7(1 ),87(I ) 

S7(I ) =a7(I ).M 1 **37(1)) 

E7 (I ) =ALCG07 ( ]) ) 

ACJUS’MENT FCP INSTPT) and ELASTIC STRAIN ;r=i: ^,4 
C=o3o I 
C = ,15 
S=S7( I) 

E = E7( I ) 

CALL SLCPE(C,C,F,S,CHG) 

E7(n =CHG 


WRITE(6,1)A7( I) ,S7(I),B7(I ) rc7(I) 

GC TO 4CC 

CCNTINUE 

PTS7=r-l 

77777777777777777777777777777777777777 

1=0 

WRITP(6,5 ) 

CCNTINUE 

1 = 1*41 

REAO( 64 ,4t,ENC=70C)A8(I ) , 88 ( I ) 
SE(I)=A6(I)»(l4e8(n) 

Ea(I)=ALCG(B6( I)4l ) 

ADJUSTMENT f=CF INSTFCN AND ELASTIC STRAIN 
C=llOo 
C = .15 
5 = S8( I ) 

E = c3( I ) 

CALL SLCFE(C,C,c,S,CHG) 

Ee( I ) =ChG 

wPrTF(6,2)Aa( i),S9(n,B8(r)r£e(i) 

GC TO 6CC 

CCNTINUE 

FTS8=I-1 

EEEEaaeSEEESe E6£EEEe6e388£B80£E8a 
1=0 

WRrTE(6,5) 

CCNTI.NUE 

1 = 14-1 

READ(63 ,eND =90C ) A9(I ) ,e9( I ) 

S9(I) =49(1 )^( 1 *'e9( I ) ) 

E9rn=ALrG(G9 (I )4i) 
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c 


c 

9 CO 
C 

1000 

C 


c 

HOC 

c 

c 

c 


c 

c 

c 


acjusi^eSt pcf instfon a*\o elastic stfain 

C L 5 D • 

C ” « 1 D 
S=S9( I I 
E = E9( I) 

CALL^5UCF6(C,C,£,S,CHG) 

(6^3)4<;( I) ,s?( n, 89 (I ) , E?( I ) 

CCNTIMUE 

PTS?=t-l 

SS?S'r9'‘;«S?99?««;CC = C99cqcoq 
I -sO 

WRIT514,5) 

CONTINUE 
I = I + l 

R6A0(25 ,9,ENC = 11CC) 410( I I ,31C (I ) 

S10(I l = i10(I)»(1+310(I) ) 

ElOlI ) = iLOG(E 10 t I) + 1 ) 

ACJUSTMENT ECp :^STEC,“I ANO ELASTIC STRAIN 
C=130# 

C = .l 

S = S10( I ) 

6=E10 { I ) 

CALL SLCFF(C,C,E,S,CHG) 

£10{I)=ChO 

4JtiA.:t7K 

’ '2io( n.ciDi I) 

bL IU 1C LQ 

CCNTINUE 

PTS10=I-1 

1C1310lOlClOlClCiClCIOlT iClOlClO 
CIVENSICN L3GPAK 
CALL CCMFFS 
CALL SMOCIH 
CALL PQLT3 
CALL 3LCWLP(#^S) 

CALL FAGEdl. rc.5l 
CALL ^IXALF( • I^ FTRL ' ) 

PAXLIN=LINcST iliQP^Y ,5 00 ,20 ) 

CALL LINES( M.^> 10(EH.5)-4S» ,LEGPAK,1) 
CALL LIN6S(» 2.axiO{cH.5)-4i» ,LEGPAK,2) 

CALL LINESC »5.6>lC{FH#5)-4$» ,LEGPAK ,3 ) 
CALL LINES( »11G{EH.5 I-3 $ * ,LEG?AK ,4) 
CALL LINES(’/oEX10(HH.5)-3 S » .LEGPAK ,5) 
CALL L1NES( * 5.6>10(FH.5)-3S» ,LEGPAK ,6) 
CALL LINES! *1.4>1C(EH.5>-2$ » ,LEGPAK ,7) 
CALL LINES{*2.axiO(EH.5I-2S» , LEGPAK, 3 I 
CALL LINES! *5.6X1C(EH.5 1-2$» ,LEGPAK,9) 
CALL LINES!* 1.4 X10 (EH. 5)-IS* , LEGPAK, 10) 
CALL ^YLEGr4{ ’STRAIN RATES 1/Sl*fl6) 

CALL FUTLPA 

CALL SFCCHft(9Co , 1, oC02,1 ) 

CALL THKCRV(.C2) 

CALL hEICHT {.2 ) 

CALL XNAI-EI’TolE ST® A INS * ,100 ) 

CALL YNAf’E(*TPLE STR ESS ( ( ) MP A { ) ) $ » , 1 00 ) 
CALL AReA2D{3.C,6.C) 

CALL HEACIN( * * * ,1C0,.5,2) 

CALL HEACIM!* STRESS \S STRAIN 1 * , 100,1.5 ,2) 
CALL GRAF (Oo ,ol ,loC,C0,500,2 2C. ) 

CALL THKFRM! .CE ) 

CALL FPANE 

CALL CURVE(El fSl ,FTSI ,>1 ) 

CALL CURVE!E2 ,E2,FT’S2,^1) 

CALL CURVE(£3 ,53 ,PTS3,>1) 

CALL CURVE(E4 ,S4 ,fTS4,^l) 

CALL CURve(E5 ,S5, RTCf ,+ L) 

CALL CURVE(E6,56 ,FTS6,^L ) 

CALL CUPV6(F7 ,S7,FTS7, + 1) 

CALL CURVE(ES,Se,?TSS,'»*l) 

CALL CUPVe(£9 , <9 ,PTSc,'H I 
CALL CURVECEIC ,E1C,P7S10,^1) 

CALL RESET! » TFKCPV » ) 

CALL RESET!*FEIGFT* ) 

CALL LEGEHO(LEGPAK,in,5,5,3. ) 

CALL 8LFFC(5o2,2o7,2o5,3o,.C2) 

CALL HESSAG! 'TE'^PERATURE = $*,100,5.2,1.) 
CALL INTNC(25C, *AEUT*, 'AEUT* ) 

CALL '^ESSAG!’ ( -ho 2 )Q( EXhX I C $ * ,100 , * AELT » 
CALL 3LREC( 5. ,.<= ,2.7,.^,.02) 

W^WMWWWUWUUwU V vv uuwwu 

CALL MFSSAG! *AL-lCo 2^MG-Co52 INNS * ,100,2o5 
CALL 0LFPC{2o3,fo4,io6,o4,»C-i) 

WkiWMUi.UkW\*UWU W 




■'Z 


,* ABUT * ) 
,5.5) 
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CALL ‘^F5SAG('P^G Ci'A CC 'lij'f' S ' , ICC »lo 2 ». 1 ) 

CALL ^CSS'\G ( • INCIC AT^ =? ACTU F E i ’ 110 C , • 2 BUT ' , ' AdUT ' ) 
CALL BLPSC(lo 1 ,, ,Ao9 ,,24,0C:) 

CALL GSIC (2,2 ) 

CAl I 



FCPMAT(1X,4F12o5) 
FORMAK 1>,4F12.5 ) 
FCRMAT( ]>,4F12. 2 ) 

C/'njAT/IV TT 1 


1 

2 


C4 

5 



a 'TRUr STRAIN’ , / ) 

STOP 

END 

SUBROUTINE SLCFE {C,C,2rS,CHG } 
real C,C,c,S,CHG,TC ,tD 
TC=C^{ 1. +0) 

TC = al.^G (C+L « ) 

ChG=->S^TC/TC 
IFiCHGoLE^Oc1GC TO 11 


11 

21 



PE'^URN 

END 
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10 


20 

C 

3C 


40 

C 

50 


60 

C 

70 


TP!J£ \S TPLC 'r=2“'5C 

THIS PFCG^ii'- CC.^PLlrS T'UE 5TRFS3 A.NC ST'^AIM = 

:-NGlN=E°rNG STC^cc XHD ':TPiI^, ^N0 '^hSN PLCTS 

EXTERNAL SLOPE 

REAL AI(ID) ,A 2(K ) , A3( 10 ),A4 ( 1C) ,A5(1C) ,A6( 10) 
A7(10) ,46(10 ,A9( 10 )^A1C(10) 

81(10,e2( 1C), 83 (10),34(10),3 5(1D),86(10) 
87 ( 10 ) , e 6 (1C ) , E9( 10 ), aiC (10 ) 

31(10) ,S2(1C) ,S3( 10) ,34(10) ,35 (10) ,36( 10) 
37(10) ,38(10,S9( 10),S1C(10) 

El (10) ,c2(lC) ,c3(10),E4(10),c5 (I0),e6(10) 
67(10) , £8(10 ,E9( 10 ),E 10(10) 

C,C ,£,S,ChCiTC ,TD,LEGPAK(50Q) 


riPu^ 

TRUE 




REAL 
REAL 

real 

REAL 
PEAL 
REAL 
REAL 

REAL ._ 

INTEGER I ,PT51 ,p 1S2 ,PT53 ,PTS4 ,PTS5,PTS6 
INTEGER PTS7,PTSe,PT59,PTS10 
1=0 

WRITE(6,5) 

CCNTINUE 
I = H-L 

REAO( 66 ,ENC = 20 )A1 (I) ,81(1) 

SKI) =A1 (I )**^ ( Kei ( I ) ) 

EKI ) =ALCG( 81 ( I) ) 

ADJUSTMENT FCP INSTFON AND ELASTIC STRAIN 
C=12o3 
C=.l 
S=S1{I ) 

E = 51( I ) 

CALL SLCFE(C ,C ,c ,S,CHG) 

El( I) =CI-C 

WRITE(6,1)A1 ( I ) ,S1( I),81 (I) , El(I) 

GC TO 1C 
CCNTINUE 
PTS1=I-l 

111111111111111111111 
1=0 

WRITE! 6,5 ) 

CCNTINUE 
1 = 1 + 1 

REAO( 75, ▼, END=40 )A2 (I),82(1 ) 

32(1 )=A2 (I )-‘ (Head)) 

62(I)=ALCG(62( I )+1) 

adjustment FGF INSTFCN ANO ELASTIC STRAIN 
C=1D,4 
C = .l 
S = S2( I ) 

5=E2( I ) 

CALL 5LCFE(C ,C .c,3,CHG) 

E2(I)=CHG 

WRITE(6 ,2)A2( I) ,32( I ),62(I), £2(I) 

GC TO 3C 
CCNTINUE 

^PTS2=I-i. 

2 22 222222 222^ 2 2 2 2 c22 2 
1=0 

i.RITE( 6,5) 

CCNTINUE 
I = I + l 

RSAO( 76 ,•* ,ENC=6C )A? (I) ,83(1) 

S3( I ) =A3 (I )+ ( KR3 ( ! ) ) 

E3(I ) =ALCG(B3( I )+\ ) 

adjustment rCR INSTPON ANO ELASTIC STRAIN 
C^'lAo 7 
C = *05 
S = S3( I ) 

E=E3( I ) 

CALL SLCPE(C ,C ,c ,3,CHG) 

E3( I) =C1-G 

( 6,3) A3 ( ! ) ,S3( I ) . 33 (I) ,83(1) 

GC T ) 5C 
CCNTINUE 

■aaIll3^'j^-a-:33*:*3*?3':32323 333 
' 1 = 0 " . 

WRITE!6,5) 

CCNTINUE- 
1 = 1 + 1 

REAO( 62 ,cNC = €C )A4(I) ,84(I) 

$4(1) =A4 (1)^(1 -*84 ( I ) ) 

ACJUSTMENT^FOpMnSTFON ANO ELASTIC STRAIN 
C = 32.4 
C=*15 
S=S4( I ) 

E=E4( I ) 

CALL SLCP£(C,C,E,S,CHG) 

E4(I)=CHG 

100 


FILES C 



30 

C 

90 

C 

C 

100 

c 

200 

C 

c 

3C0 

C 

4ca 

c 

c 

5 CO 

c 

600 

c 

c 

7C0 

C 

800 


wP - (6,1 ) ^4 ( I ) , 54 ( I), 04 (I ) , £4( I ) 

GC '*0 7C 
CCNTINUE 
FTS4=I-1 

44444 4 4 444 4 44 4 ^4 44A44444 
1=0 

WRITE(6,5) 

CCNTINUE 
1 = 1 + 1 

REAO( 61 ,*,ENC = 1CC)/J 5(1 ) , 65 ( I ) 

S5( I) =A5 ( I )=J^ ( 1 5 ( I) ) 

65(1)=ALCG(55 I J ) +1 ) 

acjustment fcp instfqn and el/stic stpain 

C=26.5 
C=.067 
S=S5(I) 

E = P5( I } 

CALL SLCFE(C ,C ,E,S,CHG) 

E5(I)=ChG 


^RITE(6,2)A5( I) ,55(I),a5(I ) ,E5(I) 

GC TO Qc 
CCNTINUE 
PTS5=I-1 

cc^C5^cccc:^:;recceccec;i^^ee^^c 

"i=6 

WRITE(6,5) 

CCNTINUE 
I = I + l 

PEAO(50,^,ENC=5CC)A6(I ) ,e6(I ) 

S6 (I ) =A6 ( I ) < ( 1 *»E6 ( I ) ) 

E6(I) =A LCG(06 ( I) +1 ) 

ACJUST'^ENT FCP USTFON AND ELASTIC STRAIN 
C = 36o 7 
C = .l 
S=S6( I ) 

E = F6( I ) 

CALL SLCFE(C ,C ,E ,S,CHG) 

E6(I)=ChG 
*7? at 


WRITE(6,3)A6( I ) ,56( n , 86(I) ,£6( I) 

GC Tn 2CC 
CCNTINUE 
PTS6= I-l 

666666666666666666666666666666666666 

I=G 

WRITE(6,5) 

CCNTINUE 
1 = 1 + 1 

REAO(41 ,^,EMC = 5CC )A7(I ),67( I ) 

S7( I ) =A7 (I )-M 1 *>57 ( I ) ) 

E7(I)=aLCG(37( I)+1 ) 

ACJUST'^ENT fcp ^^ST^GM AND ELASTIC STRAIN 
C=61o 1 
0=o033 
S=S7( I) 

CALL SLCPEIC ,C ,E,S ,CHG) 

E7(I)=ChG 


WRITE(6,1)A7( I ) ,S7( I ),B7(I) ,E7(I) 

GC TO 4CC 
CCNTp4UE 

7777^7777777 77-;77777777777777777777 77 
1=0 

WRITE(6,5) 

CONTINUE 
1=1 + 1 

RSAO( 60 ,*,EN0 = 7QC )dE(I)re8(I ) 

S£( I ) =A8 ( r )^ (1 *158 ( I ) ) 
c8 (11 =i LCG( f ( I ) +1 I 

aOJUSTVEM PCF I^STFC:l AND ELASTIC STPilN -.a*:** 
C = 85o 5 

0 J 

S = S8(! ) 

e=c8( I) 

CALL SLCFE(C,C,5,S,CHG) 

E9(I)=ChG 

vtRiTE (6,2iA8( I) ,sa( 11, aa (I). Ee( I) 

GC "TT 6CC 
CCNTINUE 
FTS3=I-l 

eEeeaaeEEEEaeeEeeeEEeaaaaeaaaEsaa 


1=0 

VfiIT"(6,5) 
CCNTINUE 
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c 


c 

900 

C 

lOOC 

C 


c 

HOC 

c 

c 

c 


c 


c 


1 = 1^1 

PPAn( 5 8 , :NC=<;:C) ^<^(1 ) ,89(1 ) 

S9(n =A9(i{1 I)) 

£9(1 ) =ALCG(59(1)41) 

ACJUSTMENT =CP INSTPOM AND ELASTIC STP^IN 
C=iOO. 

C=olS 
S=S9(I) 

£ = E9( I ) 

CALL SLCFE(C ,C,£,S ,CHG) 

E9(I)=ChC- 

:l7r.yin:^ 

URI-"£(6,2)A9( I) ,89(!),89(I) ,69(1) 

GC 71 acc 
CCNTINU6 
PT39=I-l 

cqqqqq^qccgggc cccccc cq 999 q 99 
1=0 

WRITE( 6,f ) 

CCNTINUE 
I = I>1 

READ ( 37,=*,£NC = 1 ICC) A10( I) ,81C (I ) 

siod ) = Aio(i )’*(i+ei:(i)) 

ElOd )=ALC0(81C( I) + l ) 

A0JUSTM6M FCP INSTcnrj AHO ELASTIC STRAIN 
C=143« 

0 = d5 
S=519(I ) 

E=E10(I ) 

CALL 9LCF*=(C»C,E,S,CHG) 

610(1 ) = C1-G 

i.RiT=(6,1 )Aic(I) tSicd ).eiO( I) ,cio( n 

GC TO ICCO 

CCNTIMUc 

PTS10=I-1 

1 c n 1:1 ■: 1 c: T1 c 1 c: Cl c:1: : 01 * 1 c 

CIM^NSICN LSCPAK 
CALL CC’-IP^S 
CALL SM0C1H 
CALL P0LV3 
CALL BLChLP(.eS) 

CALL PAGE(11. ,E.5) 

CALL ‘^IXALF( • 1A S7RL • ) 
fAXLI N=LIMI:ST (LEGFif ,500 ,20 ) 

CALL LINE£( • I.«X10(EH.5I-4S' ,L=GPAK,1) 

CALL LIAE.S( • 3 . EXIO ( EH. 5 )-4$ • ,LSG?A1C,2I 
CALL LIN6S(•5.4X10(EH.5)-4S' ,LEGPAK ,3 I 
CALL LINcS( '1.4Xin('H. 5)-3S• ,L3G?AK,4) 

CALL LINES( •2.8X10( 'H. 5)-3$’ ,L£G?A1C,5) 

CALL L1NES( •5.4X10(EH. 5)-3$’ ,LSGPA1C,6) 

CALL LINES( ’ 1 .A XIC ( EH. 5)-2$ • ,LEG?AK. ,7) 

CALL LIAES('2.axiO(CH,5 )-2 $• .LEGPAK ,3 ) 

CALL LINeS( ’5.4X1C(=H.5)-2$' ,LEG?AK ,3) 

CALL LINES(' I.4X10(EH.S)-lS' ,L£G?AK,10) 

CALL f-VLEG.'K ' S7EAIN RATES l/Sl’,16) 

CALL FUTLPA 

call sfcchr(ec., j,,:o2,i) 

CALL THkC'’V(.C2) 

call height(.2) 

CALL XNAHECTPLc STR A I.'IS • ,100 ) 

CALL YNAf'E('TPL£ STP ^ 3S ( ( )MP A ( ) ) $ • , 100 ) 

CALL AfiEA20(a.C,4.0) 

CALL HEACIfK' A • , 1C(7 , . 5 ,2 ) 

CALL riEACIN( •STRESS CS STPAIN I •, 130,1.S ,2) 

C^LL GPAF (<j« , o 1 ,l«0,Co, 50of22Co ) 

C^LL THKF?M(.C2) 

CALI FR4^6 

C^LL CURV6(6I,51,FT$1,+1) 

CALL CURVe(52,52 ,FTS2 ,4^1 ) 

CALL CUPVF(E3,52 ,FTS2,^l) 

CALL CUPVE(64,5A,FT5A,+1) 

CALL CURVc(25,55 , FT35,>U 
C^iLL CUPVF(f6 ,58 ,FT$(^,>1 ) 

CALL CUR^6(27,57,FT57,4»1) 

CALL CURVE(2 = , 56 , FT 58, + l) 

CALL CUPVE(29,59 ,FT59,^1) 

CALL CURVE(21C ,51C,F1510,+1) 

CALL RESET(* THKCFV * ) 

CALL R5SET( * FEIC-hT* ) 

CALL L2GFND(L£GF^K,n,5«5,3a ) 

CALL 3LFPC ( = o2 ,2<.7 ,;o5,3 «02 ) 

CALL 5c;,^( f le'^FFRiiTURr = S • , IC^ , 2.5 , 5 ) 

CALL rNTNC(275 , * «eLT*, •AeUT* ) 

CALL MSS5AG( * (Fho 3)0(CXhX)C 5 * , 100, * ABUT * , * ABUT• ) 

CALL 5LPFC(2.2,4,A,2*7,*4,.a2) 
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>OJN)e- 


c 


C4 

5 


11 

21 


CALL \ 3 , L C : , 2 o 5,5.5 ) 

CALL 8LFEC (2o3 »5oA ?2oOf o^» ©0*^ ) 

UUww'<ViWV*WviwU t ir Vvv^Umi^W 

CALL ‘-’eSSAG( ' P^C CA^\ PHINTS CC S ' , 1CC , 1. 2 ,o 1) 

CALL '^PS5AG( ’ INCICAT" PPv AC TU P c J * »10 0 , ' -5 8UT ' , • ABUT' ) 

CALL RLRECClol ,oC6 ,Ao9,* 24,©C2) 

CALL GRIC (2,2 ) 

CALL fNDPKO) 

CALL QCNEFL 
FCRMAK 1X,4F12o5 ) 

FCi?maT( 1>,4F12.5 ) 

FGR'^AK IX,4F12.5) 

FCRMAT (IX,13 ) 

FORMAT(1X,/,4> ,'TNG ETRFSS* ,2X,'TRUc STRESS» ,2X,*ENG STRA[ M • ,2X, 
m ’TRUE STRAir4* ,/) 

STOP 

END 

SUBROUTINE SLCFH (C, C,E,S,CHG ) 

PEAL C ,C ,H, 3 ,ChG ,TC 
TC^C*M 1.40) 


TD^ALOG(C+lo ) 
CHG=E-S^TD/TC 
IF{CHG.L£oOp)G0 TC 
GC TO 21 
CFG=0. 

CCNTTMUE 

RETURN 

END 


II 
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or>ooo 


10 

C 


c 

20 

C 

30 

C 


C 

4C 

C 

50 

C 


C 

6C 

C 

70 

C 


C 


TRU<: STPCSS vs TRL'J STR‘I*^ iT '^ = 32 5C 

THIS PPCGRA^ CC.^PtlES STRESS STRALG TiPUT 

ENGI.'^EEP iriG S*:PCSS V40 STRAIN, AMD ThSM PLOTS TRUE 
STRESS AGAINST TPL£ STRAIN, 

EXTERNAL SLCFE 

REAL AI (10) , A2(1C),A3(10),A4(1C) ,A5(1C ) fA6{ID ) 

REAL A7(10) , Ag(:C) ,A9(10),AlC(10) 

REAL 81 (10) ,e2(1C),e3( 10), 34(10),85 (10 ) ,e6(10 ) 

REAL 07(10) ,8 6(10 ,e9( 10), 31C (10) 

REAL SI (10) ,52(10 ,S3( 10 ),S4 (10 ) ,35 (10 ) ,S6( 10 ) 

REAL S7(1C) ,S6(1C) ,S9{10),510(10) 

REAL El(lO) ,E2(1C),E3(10),E4(10) ,E5(10) ,86(10) 

REAL E7(10) ,88(10 .£9(10), £10(10) 

REAL C,C,E,S ,ChG ,TC ,T0,LEGPAK(500) 

INTEGER I.PTSl ,FTS2rPTS3 tPTSA,?T55,PTS6 
INTEGER PTS7 ,PTS8 ,P1S9,PTS10 

WRITF(6,5) 

CONTINUE 

READ(51 ,<,cMC=2C )A1(I),81(I) 

Sl(I)=Al(I)’?'(Hei(I)) 

El ( I)=ALCG(01 ( D-^l ) 

AOJUST^-ENT FOP INSTPGN ANO ELASTIC STRAIN <t4nic« 

C = 5.21 
C=.033 
S^'SK I ) 

E = E1( I) 

CALL SLCFE(C,C,E,S,ChG) 

El(n=*^CHG 

V,RITE(6,1)A1( I) .-SK I),01 (I ) , El(I) 

GQ TO 1C 
CCNTINUE 
PTS1= t-l 

111111 111 111111111111 
I=n 

WRITE( 6, S) 

CCNTINUE 
I = I>i 

PEAD( 29,.'t,SNC=4C )A2(I) ,32(1) 

S2( I )=A2(I)^(1^82( I ) ) 
c2(r)=ALCG( 32 ( I )-►! ) 

ACJUSTMEN^ FCP INSTFQN ANO ELASTIC STRAIN 
C=9. 79 
C = .05 
S = S2( I) 

£=62( I ) 

CALL SLCPF(C ,C ,c,S,CHG) 

E2(I ) =C1-G 


pil:^ 


WR1TE(6,2)A2( I),S2( I),B2(I ) ,E2(I) 

GC TO 3C 
CCNTirjUE 
PTS2=I-1 

222222222222222222222 

l=n 

WPITE(6,5) 

CCNTINUE 

1=1 + 1 

REAO( 23 ♦ENC=^6C )A3 (I) ,e3( I ) 

52 (I ) =A2 (I )-^ ( 1 «»e2( I ) ) 

E2(I)=ALCG(82( I)+l ) 

ACJUSTMENT FCP INSTFGN ANO ELASTIC STRAIN 
C=12.3 
C=«l 
S = S3( I) 

E=E3( I ) 

CALL SLCFE(C ,C ,E,S,ChG) 

E2(I)=ChG 

44i>«4t 

UR ITS (6,^)( I),52 ( I ), 63 (I ) , E3( I ) 

GC TO 5C 
CCNTINUE 
PTS3=I-1 

t-;*a“‘a*3'a*a'3-:*a-5-a-5*:':-3C-a-3-3 33 33-3 

. 

URITE(6,5) 

CCNTINUE 

I-I+l 

PEAO( 27 ,=♦ ,ENC=80 )A4 (I ) , a4( I ) 

S4(I )=A4(I ) ( l-»e4( I ) ) 

ACJUSTMENT^FOpMnHpCN ANO ELASTIC STRAIN 

C=21.2 

C=.l 

5=S4{I ) 

E=e4( I ) ^ , 

CALL SLCFEIC ,C,c ,S,CHG) 

E4(I)=CFG 

104 





80 

C 

90 

C 


c 

ICO 

c 

200 

C 


C 

300 

C 

4C0 

C 


C 

500 

C 

C 

C 


ViPlT' { 6 ,1) A4 ( I) ,S4 { I ) , ( I ) , E^( I ) 

GO TO 7C 
CCMINUE 
PT54^I^1 

4 444444444444 4 4444 ^4444 444 
1=0 

ViPIT^C 6,5) 

CCNTT NUE 
1=1 + 1 

PE40{ 26,eNC=ICC 14 5(1) , e5(I ) 

S5 (I ) =45(1)^ ( 1 «fE5 ( I ) ) 

E5(I)=ALCG{05 ( I) + l ) 

ADJUSTMENT FCP INSTrOrj AND ELASTIC STRAIN 
C=43.7 
C=»l 
S = S5{ I ) 

E=F5{ I ) 

CALL SLCREiC,C ,E,S,CHG) 

E5{I )=C1-G 


UPITE(6,2)A5(I),S5{ n,B5{I) ,£5(I) 

GC TO 9(5 
CONTINUE 
PT55= I-l 

ccccc^^cccc^^ccccc^cc^^^cc^^^ 

WRITE!6,5) 

CCNTIiNLE 
1=1 + 1 

REAO{ 25 , EN'C = 3CC ) A6 (I ) , E6 ( I ) 

$6(1 ) =46 (I )-^ { 1 ^P6{ I ) ) 

E6{I)=ALCG(a6{!)4l) 

ADJUSTMENT FGP INSTFCN AND ELASTIC STRAIN 
C = 54,<d 
C=.017 
S = S6{ I ) 

E=E6{ I ) 

CALL 5LCFE(C ,C ,E ,S,CHG) 

E6{I)=CFG 


WRITE(6 ,3)A6{ I) ,56{ I),36(I) ,E6{ I ) 

GC ^0 2CC 

CONTINUE 

PTS6=I-1 

666666 6 66 6666 6 f f6 666666666666 6 6 66666 
1=0 

WRITE(6 ,5) 

CONTINUE 
I = I + l 

REAO(24,*,ENC = 50C)A7(I ) ,e7(I ) 

S7(I)=A7{I)i‘(l'«e7(I)) 

c7(I)=ALCG{B7 ( I)+l ) 


FCR INSTPCr) mN3 ELASTIC STRAIN 


;),a7{i) ,H7{i) 


ACJUST'^cM 

C=104. 

C=*17 
£ = S7{ I ) 

E = E7( I) 

CALL SUCF2(C ,C,5 ,S ,CHG) 

67(1) =C1-C- 

V.fiITS(6,1)A7( I) ,£7( 

GC 4CC 
CCNTINUE 
PTS7=I- 1 

7777T77777777777 7 -77777777777777777777 
CIMENJICN LEGPAK 
CALL CCVFPS 
CALL SMQCTH 
CALL P0LY3 
CALL 3LG1.LP {.8= ) 

CALL GPACStO.) 

CALL PAGECll.,8.f) 

CALL YIXALF( ’ TNS7PU • I 
f'AXLIN=LI.‘JSCT (LiCPAK ,500 ,20) 

CALL LINES(•!.4X10{cH. 5) -4i ', LEGPAK ,1) 
CALL LINES (' 5.8 X 10 { EH. 5 )-<*$', LEGPAK ,2 ) 
CALL LINES!• '.4XIC{£H.5)-3$' ,LEGPAK ,3) 
CALL LINES('5.6X10(EH.3)-3S'.LEGPAK,4) 
CALL LINES! ’ 1.4X10(EH.5)-2$’ .LCGPAK ,5) 
CALL LINES! '5.6X IC!EH. 5)-2 $ ' .LEGPAK,6) 
CALL LINES!’1.4X10!EH.5)-1 $• .LEGPAK,7) 
CALL f-YLEGN! • STRAIN RATES 1/S$>,16) 
CALL FUTLRA 

CALL ShCCHR!CC.,l,.C02,l ) 

CALL THKCRV!.02! 

CALL HEIGHT!.:) 

CALL XNANE!'TFLE STP AIM $ • ,1 00 ) 

CALL YNAf'EI 'TRLE STP ESS ! ! ) AP A ! ) ) S > , 1 CO ) 
CALL AFEA2C!8,C,6.0) 


CA4 


105 


iijjrvi-* 


C 


C 

C 


C4 


.00, 1.5,2) 


CALL h24Ci:i ( ' i* ,l :o,. 5 ,2 ) 

CALL HEAC I.N{ ' STRAHIl', 

CALL G^AF(0o ,ol »loC,v.o>50«,22C.} 

CALL THKF5M(.C3 ) 

CALL FPAME 

CALL CURVE(E1 ,£! ,FTS1 , + I) 

CALL CURVc{22»52,FTS2,^i) 

CALL CUPVe{22 ,53,FTS3,>1 ) 

CALL CUP^EiCA ,F1£4 ) 

CALL CUP.VF(E5,55,PT:5,^!.) 

CALL CUP'^F (Ec , 56 ,FT Se ,-^1 ) 

CALL CUR^^c{ 37,57 ,PT S7 , + l ) 

CALL RESET { »TI-KCPV » ) 

CALL RESET* » hfelGHT* ) 

CALL LEGfNO*LEGPA k ,7,5o5,3o) 

CALL 6LFEC(5o2,2o7,2o5,2o5,.0:) 

CALL MESSAG* 'TEMFEFATUR2 = $» , 130,2.,4.51 
CALL INTNn(325 , ' i8UT», ' AeUTM 

CALL .VC33AG ( » ( =h. 3 ) Cl EX hX ) C S » , 130 , » ABLI» , » ABUT » ) 

CALL 3LPECIl.E,^.4t2.7,.4,.02) 

CALL MESSy\G I » AL-lOo 2:SMG-’^. 5 2?^N$» , 1 CO , 2. 5 ,5.5 ) 

CALL BLPECI2,3 ,:.4,2.6,.4,.C2) 
y<V<kWWWV»\sWUwWW V VWWWWUW 

CALL MESSAGI'EMC CATA PQTNTS CQ \»0T S • , 100 , U 2 , . 1) 
CALL '^ESSAGI • INC ICATE FR ACTU P E 1», 10 C ABUT ABUT ’ ) 
CALL BLPECI1.1,.C6r4.9,.24,.C2) 

CALL GRIC 13,2 ) 

CALL rNCFLIO ) 

CALL DCNEFL 
FGRMATI1X,4F12.5 ) 

FCRMATI1X,4F12.5 ) 

FCRMATI1X,4F12.5 ) 

FGP'-IAT (IX, I 3 ) 


5 FCP‘-AT(1X,/,4X ,»ENG SIRE S5» , 2 X , • TRUE ST^-Si » ,2X, »E*JG STR.M-|»,2X, 

a *TPUE STBATP , /) 

ENO’ 

SUBROUTINE SLCPE (C , C ,E , 5 ,CHG I 
PEAL C,C,3.S,CHG,TC,TD 
TC^C'*’- ( l.+O) 

TC = ALCG(C + l. ) 

CHG^€-S*TO/TC 
IFICHG.LE.O.)G0 TO 11 
GC TO 21 
11 CHG^O. 

21 CCNTINU6 

RETURN 
END 
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c 

c 

c 

c 


10 

c 


c 

zo 

c 

30 

c 


c 

VO 

c 

50 

C 


C 

60 

C 

C 


vs t3l= ''“iiri M T=^‘5oc 

THIS CC'^PU"3G STP^SS iNO FROM r^JPUT 

FNGi .\FEFi:i3 STR35: X:n ^TRAI^r ’'H5N PLGT3 TRUE 

EXTERNAL SLGFE 

REAL U ( 10) ,A2{1C),A3{10)» 51{10) r82(1C) fB3(10) 

REAL SI (10) »S2(1C)tiOClO),cl(10),E2(10),c3{10) 

REAL C ,C .E,S ,ChG ,TC ,T0,LHOPAH(500) 

INTEGER I,?TS1,?1S2 ,?TS3 
1=0 

WRITE{6,5) 

CONTINUE 

I=H*1 

R£AO{ a4,:>tSN0 = 20 )A1 (I) rBK I ) 

SI (I ) =A1 (I )=?* (1 -JEK I ) ) 

EllI)=ALCG{ai{I)>t) 

ACJUSTMENT fop INSTF0r4 AND ELASTIC STRAIN 

C=i0.2 

C=,083 

S=S1( I) 

£=E1( I ) 

CALL SLCFE(C,C,E,S,CHG) 

El(I)=ChG 

WRITE(6,1)A1( I),S1(I),ai(I ),E1( 1) 

GC TO 1C 
CCNTINUE 
FTS1=I-1 

11111111111111111111111111 

1=0 

WPIT5(6,5) 

CCNTINUE 
I = I^-L 

READ(33 ,<,END=40 )A2 (I) ,a2(I) 

52(1 )=A2 (I )* ( He2( I ) ) 

E2(I)=ALCG(a2 (1)41) 

ACJUSTMENT FCR INSTPGN ANO ELASTIC STRAIN 
C=25,2 
C=»a67 
S = S2( I ) 

£ = F2( I ) 

CALL SLCFF(C,C ,E,S,CHG) 

E2(I)=CFG 

WRITE{6 ,2)A2{ I ) , S2(I),B2(I) r C2(I) 

GO 3C 
CCNT INLE 
PTS2=I-1 

22222222222222222222222222 

1=0 

WRI^E{6,5) 

CCNTINUE 
I = T>1 

READ(3 2,^,£NC = 6C )A3 (I) ,33(1 ) 

S3(I ) =A3 (I )- (HEE ( I ) ) 

E3(I)=ALCG(a3(1)4l) 

ACJUSTVE^T FCP INSTFGN ANO ELASTIC STRAIN 
C=63,4 
C=o067 
S = S3( I ) 

E=E3( I ) 

CALL SLCF‘=(C,C,£,S,CHG) 

E2(I) =C1-G 

WRITE(6 ,3)A3( I) ,23( I ),as(I) ,FECI) 

GC n 5C 
CCNTINUE 
PTS3=I-1 

•3‘:*a'a33‘3'3'3‘:“a3-a'a‘ST‘a “3'3'a'a333'333‘2‘3'^ 

"wiwwwwwiwww”'H%5T CIN5MS ion"'LEGPAK 
CALL CCMPCS 


= IL 
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C 


C 

c 


c 


C4 

5 


C 


11 

21 


tLEGP^K , 1 ) 
.LEGP^K fZ) 
3) 


C^LL ^CLy2 
CylLL 3L0WG? { , 65) 

C^LL ^AG6 (llo »6»5 ) 

C^LL >^LF ( » INSIPL ' ) 

HAXLIN = LINSST (LHGPAK,500,20) 

CALL LUES( ' 5.6X10 ( cHo5 )-‘^S‘ 

CALL LINPS(»5.6X1C{SH.5)-3S . 

CALL LINHS(» 5.6Xi:(SH.5)-2$» .LEGPAK 
CALL P'YLEGMC • STRAIN PATES 1/S1*,16) 

CALL FUTLRA 

CALL ShCCHR(EC. , 1 ,.C02,1 ) 

CALL THKCPV(.C2) 

CALL HHICHT(.2) 

CALL X^A^*P(•TFU5 STPMMS»,iD0) 

CALL YNAPE('TPLE STRESS( ( )MPA ( ] )$•.100) 
CALL AREA2C(8.C,6.0) 

CALL HEACIN{* $*,lCn,.5,2) 

CALL HEACINC• STRESi \S STRAIN I • , 100,!♦5 ,2) 
CALL GRAF{0.,.1,1.,C.,50. ,200.) 

CALL THKFFM(.C3) 

CALL FRA^E 

CALL CURV6(E1 ,SI,PTS1.^-1 ) 

CALL CURV£(E2 ,S2 ,PTS2,>1) 

CALL CURVe(£2 ,S2,PTS2,-»'l J 
CALL RESET(•THKCPV* I 
CALL ReSETI•FEIGhT*) 

CALL LEGEND(LEGPAK,3,5.4,3.) 

CALL 0LPEC(5.1 ,2.7,2.5.1.5,.02) 

CALL MGSSAGC •TEMPERATURE = S • , 100,2.,2.5) 
CALL INTNn(35C, •APLT*, •ABUT* ) 

CALL MESSAG( • (Eh.2)C{CXHX)C4 • ,100, • A0LT• 
CALL ELREC(loE,2.4,2.7,.4,.02) 


»ABUT») 


CALL ME25AG( •AL-1C.24MG-C. 523hN$•,100,2.5,5.5) 

CALL &LFEC(2.2 ,5.A ,2.6,.4, .r2 ) 

WWWWW WMUUW\f«IWWV VWWViViWW 

CALL MESSAGCe^r CATA POINTS CC NOT $ • , 100,1. 2, . L ) 
CALL ^ESSAG( • TNCICATE FRACTURE !• ,100 ,•ABUT•,•ABUT• ) 
CALL SLREC(1.1 ,.C6 .A.O,.2^,.C2) 


CALL GRIC(?.2) 

CALL ENDFLIO) 

CALL OCNEFL 

FCRMAK 1X.2FI2. 5 ,1X ,2F12^7) 
FCRMAT(1X,4F12.5) 

FCRMAT(1>,4F12.5) 
format(IX,12) 

FCR.maT(1X,/,4x,»SNG stress* ,2X,»TRUe 
a 'TRUE STRAIN* ,/) 

STOP 

END 

SLBP.aLTTNF FCR CCRRECTING INSTRCN 
SLBPOUTINE SLCFE (C ,C,E ,5 ,CHG ) 
real C .C,2-,S,ChG,TC,TD 
TC=C^(l.+O) 

TC=ALCG(C>1. ) 

CHG^E-S'-'TO/TC 
IF(CHG,LEaOo )GC *rC 11 


STRESS*.2X,*ENG STRA( N* 


ANC ELASTIC STRAIN 


GC TO 21 


ChG=0. 

CCNTINUE 

RETURN 

END 


2X, 
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10 


20 


30 


40 


50 


60 

C 

C 


TRU^ S'TO-SS \iS STRfilN i5 T T = 37 5C 

THIS PFCG^Af- CCNPUTcS T^UE STRESS AND STRATJ FRHM TIPUT 
ENGIN=EPIMG STRESS AND ST^AU , AND THEN PLCTS TRUE 
STRESS AGAINS" TRUE STRAIN. 

■w afc*tt a*^ 4 9 if ^zfm 

EXTERNAL SLOPE 

REAL A1 (ID) ,A2(1C)rA3(10 I,81(:C J,32(1C I,B3(ID ) 

REAL SI( 10) ,S2(1C) .S2(10),cl (10) ,22 (10 ) ,c2(ID ) 

REAL C ,C ,£o ,CHG ,T(: ,T0, LEGPAK (500) 

INTEGER I,PTS1,?TS2,PTS3 
1=0 

WRITE(6,5) 

CONTINUE 

REA0( a7,<,ENC=2c )Ai (I), ai( r) 
si(i)=Ai(i)p.(iiei(i)) 

E1(I)=ALCG(81(I)+l) 

ACJUSTHENT FCP INSTFQN AND ELASTIC STRAIN 
C = S.34 
C=.032 
S=S1C I ) 

E=£l( I ) 

CALL SLCPE(C,C,e,S,CHG) 

El(I)=ChG 

WRITE (6,1) A1 ( I ) ,S1 ( I ), ai (I ) , El( I ) 

GC TD 1C 
CONTINUE 
PTS1=I-1 

111111111111111 11 mini 11 
1=0 

WRIT=(6,5) 

CCNTINUE 
1=1 + 1 

REAO( a6,^,cNC=40 )A2(I) ,32(1) 

S2(I)=A2(I)^(1^«2(I)) 

E2(I)=ALCG(e2 ( 1)+1 ) 

ACJUSTMENT FCP INSTFGN ANO ELASTIC STRAIN 
C=31.9 
C = .l 
S=S2(I) 

E = E2(I) 

CALL SLCFE(C ,C ,1 ,S ,CHG) 

E2(I)=CHG 
:♦*=*»'* 

WSITE(6,2)A2(I) ,S2(I),82(I) ,E2(I) 

GC TO 3C 
CQNT INLE 
PTS2=I-1 

22222222222222222222222222 

1=0 

WRITE(6,5) 

CCNTINUE 
1 = 1 + 1 

REAO(85,5,ENC=60 )A3 (I) ,a2(I ) 

S2(I ) =42(1)-^ ( 1 -*e3( I ) ) 

£3(I)=ALCG(33(n+l ) 

ACJUSTVENT POP INSTFCD ANO ELASTIC STRAIN 
C=6a.5 
C = .l 
S = S3( I ) 

E = E3( I ) 

CALL SLCPEtC,C,£,5,CHG) 

E3( I ) =CHG 

WRIT=(6 ,3)A2 ( I),S3( I),83 (I ),£2(I ) 

GC TO 5C 
CCNTINUE 
PTS3=I-1 

“3 "z ^2 “3 ^ *'’33 =33 33=33*3 •s’l 

”iwSiww;ww«-,J ' fON' LcGP AK 

CALL CCMFFS 


PILc 
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(OJfMH-* 


c 

c 

c 

c 


C4 

5 

C 


11 

21 


.L5GPAK ,3) 
»16) 


CALL ?^L 'i3 
CALL ^L'^WLP ( « a 5 ) 

CALL 3?^ ACE (Oo ) 

CALL PAGE (11.3 t^o5) 

CALL .^IXALF ( * INSTPU ' ) 

MAXLI^ = L INGST (lEGPAh,500,20) 

CALL LINES( » E.6X!r(CHo5)-4S» ,L3GPAK ,1) 
CALL LINGS(» EofeXlO{EHo5 )-3 $» ,LEGPAK ,Z) 

CALL LINFSC•5.6X10<EH.5)-2S' - 

CALL ^YLEGM( ' STRAIN RATES 1/1 
CALL FUTLPA 
CALL ShCCHR(SCo ,1 ,«C02,1) 

CALL THKCRV(.C2h 
CALL HEIGHK.S) 

CALL XNA^5(»TPLe STRA IN 5 * , 100) 

CALL YNANE(»TPLE STPESS({ )MPA ())$»,100 ) 
CALL ARFAZDf5.C,6,C) 

CALL HEACIN(» 1',100,.5,2) 

CALL HEACIMI' STRESS 3TPAINS•,100 , 1*5t2) 

CALL GRAF(0. ,ol ,1.fC. ,50. ,200. ) 

CALL THKFRM{.C2) 

CALL FRA^E 

CALL CURVEC-l ,S1 ,F‘rs:,^.l ) 

CALL CUPVE(E2 , S2rFTS2,'**l ) 

CALL CLIRVE(E3 ,S3 ,FTS2,**-1) 

CALL RESET(•thkCPV•) 

CALL RESEK•hEIGhT» ) 

CALL LEGEN0(LEGPAK ,3,5<,4,3. ) 

CALL 0LPEC(5ol,2.7,2.5,i.5,.G2) 


WUWWWWUUUWWWV>\,VWWWUUM 

CALL MESSAG( ' TENFEPATURE = $» , 100,2. ,2.5) 

CALL INTNC(375, '^eUTS ‘ABUT* ) 

CALL V5SSAG( » ( EF. 3 ) 0( EXhX ) C3 ’ , 100 , »ABL'T» ,»ABUT» ) 

CALL 0LPEC(l.E ,E.4,2.7,.4,.C2) 

H In W WW InWW^WWInWWItWI^WInUW 

CALL MESSAG( » A L-iC. 2:?NG-0. 5 2 * ,100,2.3,5.5) 

CALL 0LFEC(2.2 ,3.4 ,2. 6,.4,.C2) 

UUWWWWW^iWWwWUV VWln^^hUW 

CALL MESSAG(»EN'J CATA POINTS CO r.'OT $ • ,100,1. 2 , . 1 ) 
CALL MESSAG( • INCICATE ACTUPf$» , 10C , 'ABUT»,'ABUT» ) 
CALL BLFEC{1.1 ,.Ce ,4.7,«24,.C2) 

UWUHWUiNUUhWWNWV, 


CALL GPIC(2,2 ) 

CALL cNOFL(O) 

CALL OCNEPL 

FCP'^AT( lX,2FI2o3,1X ,2F12o7 ) 

FCRMAT(1X,4F12.3) 

FCRMATC1X,4F12.3) 

F0RMAT{1X,I3) 

FCPMAT (IX ,/,4)( ,'ENG STRESS’ , 2X ,»TRU£ STPE SS ’ ,2X , » ENG STRACN' 
a *TPUE STRAIN* , / ) 

STOP 

END 

SLBPnUTINE FCF CCRPECTING INSIRCN ANC ELASTIC STRAIN 
SLBPOUTINE SLCPE (C ,C,E ,S ,CHG ) 

REAL C,C,E,S,ChG,T(i,TO 
TC=C'^ (l.+O) 

TC = ALCG (C^-r. ) 

ChG=E-S^TD/TC 
IF(CHG.LEoO.)GC TC 11 
GC TO 21 
ChG=0. 

CCNTINLE 

RETURN 

END 


2X , 
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c 

c 

c 

c 

c 


10 

c 


c 

20 

c 

30 

C 


C 

4C 

C 

50 

C 


C 

60 

C 

C 


TRU- \S T = ^0CC 

this 3PC3R;.'^ Cl^PLMS S'^RESG <iNC STRAiri PRC'^ I^'PUT PILE; 

S^GINIESPriG STRESS ^-^0 STRAIN, A.ND THEN PLOTS T’UE 

EXTERNAL SLOPE 

RFAL A1 (10) ,A2(1C) ,43(10 ),B1(10) ,82(10) ,83(10) 

REAL SKIO) ,S2( 1C) ,S3( 10 ),c 1(10) ,E2( 10) ,£3( 10) 

REAL C,C,E,S,CHG ,TC ,T0,LEGPAK (500) 

INTEGER I,?TS1,?TS2 ,PTS3 
1=0 

>.RITE( 6,5) 

CCNTINUE 
I = I-^1 

R6AD( 90 r<,ENC='2G )AX(I) ,31(1) 

Sl(t)=A1(I)^( 1 ^ei ( I ) ) 

Eld ) =ALCG(B1 ( n-H ) 

ACJUSTM6NT FGP INSTFON AND ELASTIC STRAIN 
C=9,51 
C = .l 
S=S1(!) 

E = E1( I ) 

CALL SLCF£{C,C,E,S,CHG) 

El(I)=CHG 

ViRITE ( 6 ,1) A1 ( I) ,S1 ( I) ,81 (I ) , EKI ) 

GC TO 1C 
CONTINUE 
PTS1=I-1 

11111111111111111111111111 
1 = 0 

i^PITEC 6,5) 

CONTINUE 
I = I-'-l 

REAO( 89,^,END=An )A2 (I) ,02(I) 

52(1 ) =A2 (I )^ ( 1 -»e2( I ) ) 

E2(I)=ALCG(32(I)+1) 

ACJUSTMENT FCP INSTFCN AND ELASTIC STRAIN 
C=20 ,d 
C = .l 
S=S2(I) 

E=E2( I ) 

CALL 3LCFE{C,C,E,S,ChG) 

E2(I)=CHG 

4^:sx:x 

WRITE(6,2)A2( I ) ,S2( I ),a2(I),e2{I ) 

GC TO 3C 
CCNT INLE 
PTS2=I-1 


* ^22 


12222122222222222 


1=0 
WPTT^( 6 , ! ) 

CONTINUE 
I = I-^1 

READ(83 ,£NC=6C)A3(I) ,B3(I ) 

S3 (I ) =A2 (I )- ( 1 -teK I ) ) 

E3(I)=ALCG(32 (I)d ) 

ACJUST'^ENT rCP I^STP^N AND ELASTIC STRAIN 
C=60o 7 
C=.l 
S = S3( I ) 

E=E3(T ) 

CALL SLCFE(C,C,E,S,CHG) 

E3(I)=CHG 


WRITP(6 ,3)A2( I ) ,52( I),83 (I) ,E3(I) 

GC TO 5C 
CONTINUE 
PTS3= I-l 

323333 3333333 3 333 323 33333 333 3 32 
VWWw,^wwUWmv^ CINENSION LEGP^K %%^%%% 

CALL CCNFFS 
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c 

c 

c 

c 


C4 

5 


C 


11 

21 


CiLL !’CL'f3 
c-sLL 3LC'rL?(. a;) 

C4LL ? fiGE (11. . £. a ) 

CALL '<IXALf= ( ' IN3TPU’ I 

f'AXLIN = LirJcST (LSCPAh ,500 ,20 ) 

CALL LU?3( • = .6X10 ( EH. ? ) -A$ < ,LSG?AK , 1 ) 
CALL LINE3( 'E.6X1G(?H.5)-3$ ' ,L2G?iK ,2 ) 
CALL LINSS( ’5.6XlC(cH.5)-2$' ,L=GPAK ,3) 
CALL f<YLE0N ( ' $7P ilN RATES l/Sl',16) 
CALL FUTLP.A 

CALL ShCCHR(5C.,l,.002,1) 

CALL THKC=V(,C2I 
CALL HEIGHT),2) 

CALL XNaHECTPUE STB AIN $ ' , 100 ) 

CALL Y^A^'6{'TPLE STRESS (( )HPA {))*’, 100 ) 
CALL ARFA20(8.C,6.0) 


CALL HEACIN(' 1'.ICO,,5,2) 

CALL HSACIN( •STRESS \S STRAIN$• , 100,1,S,2) 
C^LL GRAF(0ov«Irx«rC«y30«r20C«) 

CALL THKPRM(*C2) 

CALL 

CALL CURV6(2L,S1,?TS!,>1) 

CALL CURVE(62 ,52 ,FTS2,^i) 

CALL CURVe(E3tE3,PTS2,>l) 

CALL RESET!* ThKCFV» ) 

CALL BESET! »l-EIGhT» ) 

CALL LEGEND!LEGFAK,2f5. 4,3.) 

CALL EL?EC!5.1 ,2p7,2o5,1o5,«02) 

CALL ■'^ESSAG ! * TE.»-FE.RATURE = $ S 100,2. » 2.5 ) 
CALL INTN0!4CC,*/ieLl*, 'ABUT» ) 

CALL MESSAG!* (Sh«3)C(EXhX)CS’,100,•ABUT» 
CALL eLFECd.e ,2o4,2o7,.4,.02) 

W^WWWWWU WWWU ^ W ir W WUW WW 


•ABUT*) 


CALL MESSAG! • AL-1C. 2:5NG-C. 52 3MM$ * , ICO , 2.5,5.5 ) 

CALL ELFcC(2o3,5.4,2o6, .4,.C2) 

VWVWi^WU 

CALL MESSAG! »E^C CATA POINTS CO NOT S • , ICO, 1. 2'» . 1 ) 

CALL MESSAG! »INCICATc FRACTUFti» ,100 , * ABUT * ,* ABUI * ) 

CALL BLPEC! l.l.oC6,4<,Q,.24,.C2) 

iRWUVvWWwif^iRWWWMUW 

CALL GRIC(2,2) 

CALL 3N0FL(0) 

CALL OCNEFL 

FORMAT!1>,2F12.5,1X,2F12.7) 

FORMAT! lXr4Fl2.f ) 

FCRMAT!lX,tP12.5) 

FORMAT(IX,I 3) 

FCRMAT (1X,/,AX , »ENG S*P. E S S * , 2X , * TRUE STRE SS» ,2X , » EiNG STRA:n*, 2X 
a’TRUF STRAIN* ,/) 

STOP 

END 

SUBROUTINE FCP CCFRECT!r4G INSTPON ANC ELASTIC STRAIN ''**:i* 
SUBROUTINE S L C F F (C , C ,c , S ,C HG ) 

REAL C,C,c,S,CI-G,TC,TD 
TC=C"'( l.+O) 

TC=ALnG!C+la ) 

CHG=E-5^T0/TC 

if(chg.lEoOo )gc to 11 

GC TO 21 
ChG=0. 

CCNTINUE 

FETURN 

END 
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c 

c 

c 

c 

c 


10 

c 


c 

20 

30 

c 


c 


40 

50 


C 


c 

6C 

C 

C 


"T?2S3 T=42 5C 

THIS 3PCG.nA> ^?'JZ STRCSS ^r.Z STR-MTi !'1PUT 

ENGINEERING 5TPSSS AND AND ThEN PLDTS TRU- 

ST’’ESS AGAINST TRUE STRAINo 

.-^asjr * Vicnsrt < * 3t->r?-^-4A 

EXTERNAL SLCFE 

PEAL A1 (10) , A2 (1C ) , A3( 10 N31 (10 ) ,B2 ( 10 ) ,B5( ID ) 

REAL SI ( ID) .S;(1C) »S3(10 ) ,E1 (10) ,E2(1C),E3(10) 

REAL C tC rE,S ,ChG ,T(: ,TD ,LEGPAK(500) 

INTEGER ItPTSI ,PTS2 ,PTS3 
1=^0 

WPITE(6 r5 ) 

CONTINUE 
I = I>1 

READ( 93 f*,EN0 = 20 )A1 (D ,Bl( I ) 

SI ( I) =A1 (I )« ( Hei( I ) ) 
ei(I)=alcg( 01 (n+i) 

ACJUSTHENT FCF INSTFCM AND ELASTIC STRAIN 
C=A,22 
C = ,05 
S=Sl( I ) 

E=E1( I ) 

CALL 3LCF6(C,C,E,S,ChG) 

Eld )=C1^G 


WRITE (6 ,1)A1 ( I) ,S1( Df-Bl (I ) , El( I) 

GC TO 1C 
CCNTINUE 
PTS1=I«1 
1=0 

WRITE(6,5) 

CONTINUE 
I = H'l 

PEAO(92 ,*,ENC=40 )A2 (I) ,02(1) 

S2{I)=A2(I)*(14P2(I)) 

E2(I)=ALCG(82(I)d) 

ADJUSTMENT FCR INSTFCN AND ELASTIC STRAIN 
C = 10* 7 
C=ol 
S = 52(I ) 

E = F2( I) 

CALL SLCFE(C,C,E»S,CHG) 

E2( I)=C1-C* 

WPITE(6,2)A2( I) »S2(I),B2(I ) ,:2(I) 

GC -0 3C 
CCNT INLE 
PTS2= 

1=0 

WPITE(6,5) 

CCNTINUE 
I=I + l 

REAO( PI ,4,.2N0=60 )A3 (I) ,B2(I ) 

S3(I ) =A2 (I )F: {1 4e3( I ) ) 

E3(n=ALCG(8?(I)+l ) 

ADJUSTMENT FGR INSTFCN AND ELASTIC STRAIN **«:*J:» 
C = 36o 3 
C=al 
S=S3( I ) 

E = E3( I) 

CALL SLCF'^I C ,C ,E ,S ,CHG) 

E3(I)=C1-G 

WRITE(6,2)A3 ( I ) ,S3(I),33(I) ,£3(I ) 

GC th 5C 
CCNTINUE 
PTS3=I-1 

•3*a'333*a-a'3'5333*a-':-:*:a-:'3-a3'a3 

VWWWWWWWWWW nfiS'CIMENS ION L2GPAK 
CALL COMFPS 
CALL PCLY3 
CALL 3LCWLP(.65) 


= IL‘ 
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i-irvjro' 


c 

c 

c 

c 


C4 

5 

C 


11 

21 


C>iLL i.Cr ( 3, ) 

CJLL PiGE (11. , Eo5 ) 

CiLL >ALF ( » TNSTPL » ) 

^•AXL:N = lIN?ST (L!:GPAK ,5 00 ,20 ) 

CALL LlNe5( * f 1C ( PHo 5 )-4 5 » ,L5GPAK , 1 ) 

CALL LINt5( * 5.6>10(PH. 5)-35» ,L = G?AK ,2) 

CALL LI NP.5( * 5.6> 1C ( 5H. 5 ) -2S • ,L5G?AK ,2) 

CALL .'^YLSGrU • STP^IN RAT25 1/Si',16) 

CALL FLTLkA 

CALL SHCCHR ( <;C. , 1,*C02 r 1 ) 

CALL THKCRV(,C2) 

CALL H6IGHT(.2) 

CALL XNAN6(* TRUE STRA INS» , 100 ) 

CALL YNAMEC * TFL£ STRESS( ( )MPA () )S' ,100 ) 

CALL AREA2D(3o C,6*0I 
CALL HEACIM( » f • ,1C0,o5,2 ) 

CALL HEACIN(» STRESS \S STRAIN I» , 100,1.f ,2) 

CALL GRAF(0*,.1 ,l.fC.,50* ,200. ) 

CALL THKFRNI«C2) 

CALL FRAf^E 

CALL CUPVE(cl,Sl,FTSl,^'l) 

CALL CURVE(F2 ,S2 ,PTS2,i-l ) 

CALL CURVE(E5 ,S3,FTS3,>1) 

CALL RESET(* TFKCFV * ) 

CALL RESET( * FElGhT' ) 

CALL LEGEN0(LEGFAK,2,5.A,3.) 

CALL eLFEC(5«l ,2«7,2«5,1.5,.C2) 

V V^VWWWW 

CALL “^ESSAG ( * TE'^FEP ATURE = $ » , 100,2 • , 4.5 ) 

CALL INT^O(425 , * ^EUT', 'ABUT * ) 

CALL MESSAG( * (ch.3)Q(EXhX)Ci» ,100, 'ABUT* ,»ABUT» ) 
CALL ELFEC(1 .6 ,4.4,2«7,.4,.02) 

WWViWW WUWVWWW ^ V V k* 

CALL MESSAG( * AL-1C.2IMG-C.52S•,100,2.5,5.5) 

CALL ELFEC(2.3 ,5.4 ,2.6,.4,.C2) 

CALL --ESSAGI »ENC CATA POINTS CO NOT S ' , ICO , 1. 2,2. ) 
call MESSAG( ' INCICATE FRACTUFci' ,100, *AQUT» ,*ABUT' ) 
CALL 9LP=C( lol,i«Se,5o ,.24,.C2) 


CALL GPIC(2,2) 

CALL ENOFL(Q) 

CALL OCNEFL 
FORMAK 1X,2F12.5 ,1X 
FOR«AT( 1X,4F12.5 ) 
FCRMAT(1X,4P12.5) 
F0RMAT(IX,!2) 
FORMAT(IX,/, 4X,» ENG 
a'TRUE STRAIN' ,/ ) 


,2F12.7) 

STRESS' , 


2X,'TRUE 


STOP 

ENO 

SLBR(3UTIN£ =CP CCPPECTING INSTRQN 
SUBROUTING SLCPE (C , C,2,S,CHG ) 

P-AL C,C,c,,> ,CFG ,TC , lO 
TC=C* ( 1. +0) 

TC=AL0G(C+1.) 

CHG:=^-S-tTO/TC 
IF(CHGoL£«0.)GC TO 11 


GC TO 21 
CFG^O. 

continue 

RETURN 

ENO 


STRESS',2X,'ENG STRA( N' 

ANC ELASTIC STRAIN 


2X , 
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